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ABSTRACT 

A  study  was  conducted  on  the  effects  of  thermomechanical  processing  by  warm 
rolling  of  a  cast,  aluminum-based  discontinuous  metal  matrix  composite.  The  material 
studied  was  a  6061  aluminum  containing  10  or  15  volume  percent  alumina  (A1203)  par- 
ticles. The  material  was  cast  and  extruded  by  DL'RALCAN  Inc.  of  San  Diego, 
California.  The  subsequent  processing  included  rolling  at  either  250°C  or  350°C  with 
reheating  and  annealing  always  at  350°C.  The  microstructure  was  studied  by  both  op- 
tical and  transmission  electron  microscopy.  A  significant  improvement  in  the  distrib- 
ution of  the  Al1Oi  particles  was  achieved  by  the  thermomechanical  processing.  It  is  also 
shown  that  a  substantial  grain  refinement  (from  a  grain  size  of  500  /xm  to  20  /xm)  ac- 
companied the  improved  particle  distribution.  The  elevated  temperature  ductility  and 
strength  did  not  differ  significantly  with  volume  percent  of  A1203  added.  Also,  the  details 
of  the  thermomechanical  processing  did  not  effect  the  strength  at  higher  temperatures. 
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I.     INTRODUCTION 

In  recent  years  there  has  been  a  growing  scientific,  industrial  and  military  interest 
in  the  development  of  metal  matrix  composites  (MMCs).  MMCs  offer  an  increase  in 
modulus,  tensile  and  compressive  strengths  greater  than  their  unreinforced  counterparts, 
improved  friction  and  wear  characteristics,  reduced  thermal  expansion  coefficients  and 
other  property  combinations  not  obtainable  in  monolithic  materials.  A  MMC  offers  an 
advantage  over  polymeric  based  composites  in  high  temperature  applications  and  also 
possesses  improved  stability  with  respect  to  vacuum  and  ultraviolet  radiation  [Ref  1]. 

Composite  materials  are  popular  because  one  can  design  a  new  material  to  have  a 
desired  set  of  properties  not  found  in  any  single  existing  material.  The  three  categories 
of  composites  are:  particulate;  continuous  fiber;  and  whisker  reinforced  composites. 
When  using  particles  that  are  uniformly  distributed,  the  composite  will  have  isotropic 
properties,  unlike  the  fiber-  and  whisker-containing  materials.  These  particles  may 
interact  with  dislocations  or  otherwise  alter  microstructure  and  thus  cause  an  increase 
in  strength  [Ref.  2]. 

Cast  ceramic-particle  reinforced  Aluminum  alloy  composites  are  available  in  pro- 
duction quantity.  They  can  be  shaped  by  conventional  metal  working  processes  such  as 
extrusion,  rolling  and  forging.  Al  6061  with  Alumina  (/4/203)  is  relatively  easy  to  fabricate 
using  casting  methods.  The  wetting  of  the  matrix  material  to  particles  is  better  with 
Al202  than  with  SiC.  Adding  large  particles  (3-50  /im)  increases  the  modulus  of  elasticity. 
Also,  there  is  no  chemical  reaction  or  need  for  adherent-corrosive  protection  of  Al2Oy 
However,  the  as-cast  Al  6061  -  Al203  material  has  poor  ductility. 

Dural  Aluminum  Composites  Corporation  (DURALCAN),  based  in  San  Diego, 
California,  has  developed  a  proprietary  casting  process.  Their  pretreatment  process  pre- 
vents the  molten  aluminum  from  chemically  reacting  with  the  particles  while  still  ensur- 
ing adequate  wetting.  The  pretreatment  also  reduces  dissolved  gases  [Ref.  3]. 
DURALCAN  produces  castings  of  Al  6061  with  10  to  20  volume  percent  (vol.  pet.) 
Al2Oi  up  to  eleven  inches  in  diameter.  They  produce  shafts,  bars,  rectangles  and  tubes. 
Their  production  capacity  will  increase  to  25  million  pounds  with  the  opening  of  a  plant 
in  Canada  [Ref.  4].  With  the  high  production  capacity  and  excellent  potential  properties, 
there  is  a  growing  need  for  further  research  of  MMCs. 


This  study  is  prim  ily  mici  ^structural  in  nature.  The  purpose  of  this  thesis  was  to 
study  the  effect  of  the  thermomechanical  processing  on  the  evolution  of  the  microstruc- 
ture  and  the  development  of  mechanical  properties  in  a  10  or  15  vol.  pet.  Al2Oi  in  6061 
Aluminum  composite  material. 


II.     BACKGROUND 

A.     THE  MATRIX  ALLOY 

The  matrix  material  is  usually  tough  and  ductile  while  the  particulate  addition  is 
comparatively  brittle.  The  matrix  supports  the  particles,  allows  the  load  to  be  transmit- 
ted to  the  particles  and  prevents  the  cracks  formed  in  particles  from  propagating  through 
the  entire  structure.  The  matrix  itself  should  be  strong  to  contribute  to  the  overall 
strength  of  the  composite.  Matrices  of  composites  are  either  polymers,  ceramics  or 
metals.  The  polymeric  composites  are  useful  at  relatively  low  temperatures.  Ceramics  are 
hard  and  brittle,  but  have  good  properties  at  very  high  temperatures.  Most  MMC's  can 
operate  at  high  temperatures,  but  production  is  more  expensive  than  with  a  polymeric 
matrix.  [Ref.  2] 

Discontinuously  reinforced  Aluminum  MMC's  offer  a  higher  stiffness  per  unit 
weight  as  compared  to  unreinforced  alloys.  Cast  Aluminum  MMC's  have  a  large  cost 
advantage  over  those  processed  via  powder  metallurgical  methods.  [Ref.  5]  The  subject 
of  this  research  is  a  6061  Aluminum  alloy  matrix.  The  6XXX  series  (Al-Mg-Si  alloys)  is 
amenable  to  heat  treatment  in  order  to  improve  mechanical  properties.  The  6XXX  series 
combines  medium  strength,  good  ductility,  formability  and  weldability  with  minor 
property  losses  along  with  good  corrosion  resistance.   See  Table  1  [Ref.  6]. 


Table  1.     PROPERTIES  OF  UNREINFORCED  ALUMINUM  ALLOYS 


Alloy 

Nominal  Com- 
position 

Density 
g/cm3 

Elastic 

Modulus 

GPa 

Yield 

Strength 

MPa 

Ultimate 

Tensile 

Strength 

MPa 

Failure 
Strain, 
Percent 

2024  Al 

4.4  Cu-1.5  Mg 
-0.6  Mn 

2.77 

72.4 

414 

483 

13 

5083  Al 

4.5  Mg-0.35  Mn 

2.66 

69.3 

234 

317 

12 

6061  Al 

1.0  Mg-0.28  Cu 
-0.2  Cr-0.6  Si 

2.70 

68.3 

276 

310 

17 

7075  Al 

5.6  Zn-2.5  Mg 
-l.6Cu-0.23Cl 

2.80 

71.0 

503 

572 

11 

Al  6061  is  typically  tempered  to  a  T4  or  T6  condition.  The  T4  is  solution  heat 
treated  and  naturally  aged  to  a  substantially  stable  condition  while  the  T6  is  solution 
heat  treated  and  then  artificially  aged  [Rcf.  7].  The  6061  alloy  is  often  formed  via 
extrusion.  This  hot  working  process  is  illustrated  schematically  in  Figure  1  [Ref.  6]. 
Extrusion  may  involve  area  reductions  as  large  as  25:1,  corresponding  to  true  strains  of 
approximately  3.2  or  more,  in  a  single  operation. 


Container 


Figure  1.      Extrusion  of  a  metal 


B.     THE  REINFORCEMENT 

There  are  four  types  of  materials  that  offer  competition  to  discontinuous  MMC's 
(DMMC).  They  are: 

•  Polymer  based  composites  such  as  carbon  fiber  reinforced  plastic  (CFRP); 

•  Unreinforced,  powder  based  metallic  material  (PM); 

•  Continuous  fiber  reinforced  MMC's; 

•  Other  cast  or  wrought  metallic  alloys. 

The  three  types  of  DMMC  reinforcements  are  short  fibers  (3/xm  diameter,  <  50  /xm 
long),  whiskers  (<,  1  urn  diameter,  <  40  /.im  long)  and  particles  (3-40  nm  diameter).  This 
study  involves  the  particulate  type  DMMC.  DMMC's  offer  a  smaller  gain  in  mechanical 
properties,  while  still  having  isotropic  behavior,  as  compared  to  continuous  fiber  com- 


posites.  In  aluminum  alloys  it  has  been  demonstrated  that  the  following  variables  influ- 
ence the  micro  structure  of  the  alloy: 

•  the  size  and  shape  of  the  reinforcement; 

•  the  volume  fraction  of  the  reinforcement; 

•  the  processing  route  for  the  composite; 

•  the  relative  coefficient  of  expansion  of  reinforcement  and  matrix; 

•  the  type  of  alloy.  [Ref.  8] 

The  /i/203  particles  added  are  approximately  10  iim  in  diameter  and  irregularly 
shaped.  The  volume  fractions  were  0.10  and  0.15.  The  coefficients  of  expansion  for 
Al2Oi  and  Aluminum  are  6.7  and  25  .rlO-6  cm'cm-°C,  respectively,  which  is  a  factor  of 
four  difference  [Ref.  2].  Table  2  shows  the  properties  of  various  reinforcements  for  metal 
matrix  composites  [Ref.  9  ].  The  properties  of  the  various  forms  of  reinforcement 
(particulate  and  fiber)  can  be  compared. 


Table  2.     REINFORCEMENT  FOR  LIQUID-METAL  INFILTRATION 


Strength 
(MPa) 

Modulus 
(GPa) 

Density 

(gem3) 

i  % 

Diameter 

Al20,  (Saffil) 

2000 

300 

3.3 

0.67 

3 

^/A(FP) 

1380 

379 

3.9 

0.36 

20 

Continuous  SiC 
(Nicalon) 

2760 

200 

2.55 

1.5 

10-15 

SCS-2 

3450 

407 

3.05 

0.8 

140 

Carbon 
P-55 

2068 

380 

2.25 

0.5 

10 

P-75 

2068 

517 

2.25 

0.42 

10 

P-100 

2240 

690 

2.25 

0.5 

10 

C.    THE  COMPOSITE 

There  are  at  least  five  problems  to  be  dealt  with  in  casting  a  MMC  materia.  .  hese 
are: 

•  wetting 

•  dispersion 

•  inclusions 

•  porosity 

•  segregation. 

Difficulty  in  wetting  increases  as  the  particle  size  decreases.  This  is  due  to  the  in- 
creased surface  energy  required  as  the  particle  penetrates  through  the  liquid  metal  sur- 
face and  thus  finely  divided  powders  tend  to  cluster  together  face  treatment  of 
particles  may  be  necessary  to  obtain  particle  wetting  and  there'r  .ieve  an  even  dis- 
tribution when  composites  are  produced  via  the  melt  stirring  route.  .niform  dispersion 
is  important  for  isotropy  of  properties.  Inclusions,  like  oxide  film  on  the  surface,  should 
be  avoided.  Aluminum  will  extract  hydrogen  from  moisture  in  the  environment.  Hydro- 
gen has  a  high  solubility  in  liquid  Aluminum.  Inclusions  in  the  melt  provide  nucleation 
sites  for  hydrogen  bubbles  which  result  in  porosity.  Dendritic  segregation  can  cause 
clustering  even  though  the  particles  may  have  been  thoroughly  dispersed  in  the  melt. 
During  freezing,  a  dendritic  arm  that  encounters  a  second  phase  particle  will  either  en- 
trap it  or  push  it  aside.  When  freezing  is  complete,  the  particles  pushed  aside  will  be 
segregated  into  dendrite  interstices  [Ref.  10].  DURALCAN's  pretreatment  in  their  pro- 
prietary casting  process  prevents  a  chemical  reaction  between  the  particles  and  the  ma- 
trix alloy  while  still  ensuring  ade.  uate  wetting,  and  reducing  dissolved  gases. 

In  the  past,  6061  has  had  various  applications  in  cars,  trucks  and  marine  super- 
structures. The  Navy  has  an  interest  in  developing  the  6061  MMC  for  use  in  bulkhead 
doors  and  related  applications.  They  would  be  light,  stiff  and  have  a  high  thermal 
conductivity.  There  are  now  possibilities  that  MMC's  based  on  6061  can  have  primary 
and  secondary  structural  applications  in  the  aerospace  industry  [Ref.  11].  MMC's  have 
already  been  qualified  for  space  flight  as  booms  for  the  Space  Telescope.  There  is  also 
an  interest  in  using  MMC's  on  satellites  as  shields  against  pellet,  nuclear  or  laser  weap- 
ons [Ref.  12]. 


D.     POST  CONSOLIDATION  TREATMENT  OF  METAL  MATRIX 
COMPOSITES 

The  purpose  of  post-fabrication  processing  is  to  develop  a  homogeneous  distrib- 
ution of  the  particles  throughout  the  matrix.  DMMC's  are  sensitive  to  the  distribution 
of  the  particles.  The  clustering  of  the  particles  causes  a  lowering  of  the  strength  and 
ductility  of  the  composite.  A  common  method,  used  for  this  material,  is  extrusion. 
However,  other  forms  of  treatment  may  involve  forging  or  rolling. 

It  has  been  recognized  that  a  single  warm  temperature  deformation  process  coupled 
with  prolonged  annealing  gives  a  different  microstructure  from  a  sequential  deformation 
/anneal/deformation/anneal  process  as  used  in  this  study.  Further  refinement  of  an 
extruded  composite  can  be  accomplished  using  rolling.  The  rolling  portion  of  the  TMP 
involved  nine  warm-rolling  passes  with  increasing  strain  per  pass,  and  used  two  different 
annealing  and  rolling  temperatures.  The  ambient  properties  of  ductility  and  fracture 
toughness  were  the  focus  of  work  by  Schaefer  who  examined  the  properties  of  this  ma- 
terial in  the  as-extruded  condition  with  subsequent  TMP  by  warm  rolling  [Ref.  3].  The 
intent  of  the  TMP  was  to  improve  the  distribution  of  the  Al203  in  the  matrix  and  to  re- 
fine the  grain  size  by  the  conclusion  of  processing.  This  thesis  investigated  elevated 
temperature  testing  of  similarly  processed  materials. 
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III.     EXPERIMENTAL  PROCEDURE 

A.  MATERIAL  AND  SECTIONING 

DURALCAN  provided  two  samples  of  6061  Aluminum  with  /4/203  added.  One 
contained  10  vol.  pet.  and  the  other  15  vol.  pet.  of  Al2Oy  The  MMC  material  was  ob- 
tained in  both  the  as-cast  and  as-extruded  conditions. 

The  extruded  rectangular  bar  had  rounded  corners  and  nominal  dimensions  76  mm 
x  19  mm  (3.0  in  x  0.75  in).  Two  sections  were  cut  using  a  power  hack  saw  to  dimensions 
of  38  mm  x  66  mm  x  19  mm  (1.5  in  x  2.6  in  x  0.75  in)  for  use  as  rolling  billets.  [Ref.  3] 
An  extra  piece  was  processed  with  the  first  two  and  had  smaller  sections  cut  from  it  at 
intermediate  stages  of  the  rolling  process  in  order  to  facilitate  optical  and  transmission 
electron  microscopy  (TEM)  for  microstructural  analysis. 

B.  THERMOMECHANICAL  PROCESSING 

In  previous  work  by  Schaefer  [Ref.  3]  and  Magill  [Ref.  13  ]  it  was  recommended  that 
TMP  be  conducted  using  a  rolling  temperature  of  250°C,  with  annealing  between  passes 
at  this  same  temperature.  This  was  based  on  the  observation  of  increased  ductility  during 
elevated  temperature  testing  following  a  reduction  in  the  rolling  temperature  from 
500°Cto  350°C[Ref.  13]. 

Billets  for  processing  were  always  solutionized  at  560°C  for  90  minutes  in  a  Lindberg 
type  B-6  Heavy  Duty  Furnace  to  ensure  homogeneity  of  the  matrix  "he  billets  were 
then  water  quenched  to  room  temperature.  The  subsequent  proces  .g  trials  are  de- 
scribed below. 

Initial  attempts  to  roll  at  250°C  were  unsuccessful  as  the  billets  split  at  their  mid- 
plane  (alligatoring).  A  second  series  of  processes  were  then  conducted  utilizing  a  rolling 
temperature  of  250°C  but  with  annealing  at  350°C  for  varying  lengths  of  time.  It  became 
apparent  as  well  that  the  rolling  schedule  required  modification  to  reduce  the  strain  per 
pass  in  the  early  stages  of  rolling. 

The  rolling  schedule  used  in  most  of  the  work  is  designated  TMP  1  and  is  summa- 
rized in  Table  3.  A  modified  version  is  summarized  in  Table  4.  The  results  of  the  rolling 
trials  are  summaried  in  Table  5  for  the  Al-6061  10  vol.  pet.  /4/203  material  in  Table  6  for 
the  Al-6061  15  vol.  pet.  Al2Oz  material.  Essentially,  four  of  the  seven  combinations  of 
Al2Oz  content  and  TMP  (designated  subsequently  as  samples  A,  C,  F  and  G)  provided 
material  for  the  remainder  of  this  research. 


Table  3. 

ROLLING  SCHEDULE  FOR  TMP  1 

ROLL 

u 

ROLL  CHANGE 
(O.OSin  +  O.Olin) 

MILL  SETTING 

(left/right) 

MILL 
GAP 

(in) 

SILICONE 
LUBRICANT 

1 

+  (8  +  0) 

44 

0.64 

NO 

2 

-(1  +  2) 

2/2 

0.54 

NO 

3 

-(1  +  2) 

0.0 

0.44 

NO 

4 

-d  +  2) 

6  6 

0.34 

NO 

5 

-(1  +  2) 

44 

0.24 

YES 

6 

-(0  +  6) 

6/6 

0.18 

YES 

7 

-(0  +  6) 

0  0 

0.12 

YES 

8 

-(0  +  5) 

3;  3 

0.07 

YES 

9 

-(0  +  2.2) 

0.8/0.8 

0.048 

YES 

Table  4. 

MODIFIED  ROLLING  SCHEDULE  FOR  TMP  2 

ROLL 

# 

ROLL  CHANGE 

(0.08in  +  O.Olin) 

MILL  SETTING 
(left/  right) 

MILL 
GAP 

(in) 

0/ 

STRAIN 

(per  pass) 

I 

+  (8  +  5) 

IT 

0.72 

4.0 

2 

-O  +0) 

1/1 

0.64 

11.1 

■5 

3 

-(1  +  2) 

7/7 

0.54 

15.5 

4 

-(1  +  2) 

6  6 

0.44 

18.5 

5 

-(1  +  1) 

5/5 

0.35 

21.5 

6 

•(1  +  1) 

4/4 

0.26 

25.7 

7 

-(0  +  7) 

7/7 

0.19 

26.9 

8 

-(0  +  6) 

1/1 

0.13 

31.6 

9 

-(0  +  5) 

4/4 

0.08 

38.5 

10 

-(0  +  3.2) 

0.8/0.8 

0.048 

40.0 

Table  5.     PROCESSING  SCHEDULE  FOR  6061  AL-ALUMINA  10  VOL.  PCT. 


Roll  and  Anneal 
Temps 

10%  Vol 

Size  of  Billet 

Strain 

Comments 

per  roll 

Sample  A 

0.75"  x  1.5"  X  2.6" 

1    14.7 

Partial  split  @ 

(1/wa  1.6) 

2    15.6 

2nd, 3rd,  and  4th 

Anneal  @  350°C 

3    18.6 

rolls 

(30  min) 

4   22.7 

Roll   @    250°C 

5   29.4 

no  further 

(  5  min) 

6  25.0 

7  50.0 

splitting 

(TMP  1) 

8  41.7 

9  31.4 

Sample  B 

0.75"  x  1.5"  X  2.6" 

1    14.7 

"alligator" 

(l/w»  1.6) 

2    15.6 

Complete  split 

Roll/Anneal  @ 

3    18.6 

after  2nd  roll 

250°C  (30  min) 

4  22.7 

5   29.4 

no  further 

(TMP  1) 

6   25.0 

assesment  of 

7   50.0 

material 

8  41.7 

9   31.4 

Sample  D 

0.75"  x  1.4"  X  5.7" 

1     4.0 

"alligator" 

(1/w  «  4.0) 

2    11.1 

Complete  split 

Roll,' Anneal  @ 

3    15.5 

after  2nd  roll 

250°C  (30  min) 

4    18.5 

5   21.5 

no  further 

(TMP  2) 

6   25.7 

assesment  of 

7   26.9 

material 

8    31.6 

38.5 

,  >  40.0 

Sample  F 

0.75"  x  1.4"  X  5.7" 

1    14.7 

No  splitting 

(1/w  x  4.0) 

2    15.6 

Roll/Anneal  @ 

3    18.6 

350°C  (60  min) 

4  22.7 

5  29.4 

(TMP  1) 

6  25.0 

7  50.0 

8  41.7 

9  31.4 
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Table  6.     PROCESSING  SCHEDULE  FOR  6061  AL-ALUMINA  15  VOL.  PCT. 


Roll  and  Anneal 
Temps 

15%  Vol 

Size  of  Billet 

Strain 

Comments 

per  roll 

Sample  C 

0.75"  x  1.4"  X  5.5" 

1    14.7 

No  splitting 

(1/w  «  4.0) 

2    15.6 

Anneal  @  350°C 

3    18.6 

(30  min) 

4   22.7 

Roll   @    250° C 

5   29.4 

(  5  min) 

6  25.0 

7  50.0 

(TMP  1) 

8  41.7 

9  31.4 

Sample  E 

0.75"  x  1.4"  X  5.7" 

1     4.0 

"alligator" 

(1/w  «  4.0) 

2    11.1 

Complete  split 

Roll/ Anneal  @ 

3    15.5 

after  3rd  roll 

250°C  (30  min) 

4   18.5 

5  21.5 

no  further 

(TMP  2) 

6  25.7 

assesment  of 

7   26.9 

material 

8   31.6 

9   38.5 

10  40.0 

Sample  G 

0.75"  x  1.4"  X  5.7" 

1    14.7 

Partial  split  @  3rd 

(1/w  %  4.0) 

2   15.6 

roll 

Roll,' Anneal  @ 

3    18.6 

250°C  (60  min) 

4   22.7 

no  further 

5   29.4 

splitting 

(TMP  1) 

6  25.0 

7  50.0 

8  41.7 

9  31.4 
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C.     MACHINING 

A  diamond-tipped  cutting  tool  reduced  the  amount  of  tool  wear  while  cutting  the 
harder  15  vol.  pet.  samples.  The  tension  test  coupons  were  machined  to  the  specifica- 
tions given  in  Figure  2. 


0O.2O3±O.OO2 


-OOP 


RO.06  +  0.01 


J  ] 


0.250  +  0.002 


Figure  2.      Dimensions  and  tolerances  for  tensile  test  specimens. 

D.     TENSILE  TESTING 

The  tensile  load  cell  output  of  an  Instron  Model  6027  test  machine  was  fed  into  a 
Hewlett  Packard  Model  3852A  Data  Acquisition  Unit  which  produced  load  vs.  time 
graphs.  The  tests  were  performed  at  350°C  using  a  Marshall  Model  1137  Furnace  rated 
to  1 100°C  and  controlled  by  a  Eurotherm  Model  199  temperature  controller.  There  were 
five  thermocouples  used  to  monitor  the  temperature  of  the  test  sample.  One  was  at  the 
center  of  the  coupon  while  the  other  two  pairs  were  one-half  inches  above  and  below  the 
ccnterline  of  the  sample.  The  crosshead  speed  was  maintained  at  cither  of  two  different 
strain  rates,  corresponding  to  5.08  or  50.8  mm/min.  The  nominal  strain  rates  were 
6.7jrl0-3s-1  and  6.7.X10-V,  respectively.  Self-aligning  grips  were  used  to  hold  the  tensile 
test  specimens  as  in  Figure  3  [Ref.  14]. 
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Clevis 


R0.1336    Slot    for   clevis   pin 
pm  nust  off   snuQ  fitting 


Tapered  Region 


Inside    Grip    Face 

Knurl    inside    recess 

Mill    recess    to   0.025   depth 


Figure  3.      Self-aligning  grip  assembly  for  tensile  test. 

E.  DATA  REDUCTION 

Programs  were  developed  for  the  HP-9000  computer  for  data  analysis.  Load  vs. 
time  data  was  collected  during  the  tensile  testing.  To  correct  for  grip  slippage,  the  slope 
of  the  elastic  region  of  the  load  vs.  time  graph  was  calculated.  The  horizontal  displace- 
ment from  the  elastic  line  on  the  load-time  graph  was  used  to  determine  and  plot  the 
engineering  stress  vs.  engineering  plastic  strain.  The  software  is  in  the  developmental 
stages  and  the  program  codes  for  data  acquisition  and  data  reduction  are  enclosed  in 
Appendix  A. 

F.  OPTICAL  MICROSCOPY 

The  samples  were  mounted  in  Buehler  Sampl-Kwick  thermoset  plastic.  The  samples 
were  cleaned  with  detergent,  rinsed  and  dried  between  steps.  Plastic  gloves  were  worn 
when  using  the  OPS  colloidal  silica  due  to  its  caustic  nature.  For  steps  four  through  six 
on  Table  7,  Plan,  Mol  and  OP  Chem  papers,  respectively,  were  used  on  the  polishing 
wheels.  These  papers  yielded  a  significant  improvement  in  the  quality  of  the  prepared 
samples. 
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Table  7.     OPTICAL  SAMPLE  PREPARATION 


STEP# 

POLISHING 
MEDIUM 

LOAD  RPM 

LUBRICANT 

TIME 

1 

240  GRIT 

light;  - 

water 

2  min 

2 

400  GRIT 

light    - 

water 

2  min 

3 

600  GRIT 

light'  - 

water 

2  min 

4 

6  /im  diamond 
paste  (Metadi) 

light;  150 

DP  Lubricant 
Red  (Struers) 

3  min 

5 

3  fxm  diamond 
paste  (Metadi) 

light/150 

DP  Lubricant 
Red  (Struers) 

2  min 

6 

colloid       ilica 

light,  150 

Beulers 
Mastemet 

2  min 

Once  the  micrographs  were  obtain  to  v:  ^al  the  distribution  of  the  /4/203 
reinforment,  the  optical-microscopy  samples  were  anodized  to  examine  the  microstruc- 
ture  of  the  matrix.  The  etchant  was  a  modified  Barker's  reagent  (HBF4  (48%  solution), 
46  cm3;  boric  acid,  79  cm*;  H20  ,  970  cm3)  [Ref.  15]. 

G.  TRANSMISSION  ELECTRON  MICROSCOPY 

The  material  sectioned  after  each  rolling  pass  was  saved  for  optical  and  Trans- 
mission Electron  Microscope  (TEM)  work.  The  TEM  samples  were  3.0  mm  disks,  0.2 
mm  thick,  and  cut  by  a  Metals  Research,  Ltd.,  S.M.D.  Servomet  v  rk  Machine.  The 
samples  were  mechanically  polished  down  to  a  thickness  of  about  2  im  and  dimpled 
to  about  26  fxm  on  a  Gatan  dimple  ..rinder,  Model  656.  The  samples  .  .re  finally  thinned 
in  a  Gatan  Dual  Beam  Ion  Mill  Model  600  at  an  accelerating  voltage  of  6  KV  and  a  gain 
current  of  about  100  microamps. 

H.     DISTRIBUTION  OF  ALUMINA  PARTICLES 

A  video  camera  was  attached  to  the  eye  piece  of  an  Zeiss  ICM  405  optical  micro- 
scope. The  field  of  view  of  the  sample  at  a  magnification  of  540X  was  displayed  on  a 
Sony  model  PVM-1343MD  color  video  monitor.  The  MicroScience  I  mage  Measure® 
version  4.02  software  package  was  used  to  determine  the  volume  percentage  of  the 
Al203 .  Each  pixel  was  assigned  a  shade  value  from  0  to  255,  with  black  being  zero,  white, 
255,  and  the  shades  of  grey  ranged  from  1  to  254.  The  matrix  (Al)  ranged  from  0-70  and 
the  particles  (Al203)  had  shades  of  grey  of  approximately  62  at  the  edges  to  about  92  at 
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the  center.  The  contrast  bias  was  used  to  cancel  all  lighter  shades  from  92  to  255.  This 
allowed  only  the  particles  themselves  to  be  depicted  on  the  screen  with  a  totally  white 
background.  This  allowed  the  program  to  determine  the  particles  as  a  percentage  of  the 
total  field  of  view.  A  hard  copy  of  the  screen  is  illustrated  in  Figure  4  which  shows  an 
actual  particle  percentage  of  15.7%  for  the  15  vol.  pet.  sample. 


20.7- 


H  I  s+ogram    J 


17.8 

14.9 

11.8 

8.9 

5.9' 

3.0- 
0.0- 


64 


128 


192 


St»r-+i  0       End  I     233 


■84.3 
■72.3 
€8.2 


■48.2 


•36.1 
•24.1 

■12.0 
■   0.0 


233 


■-A. 


* 


*• 

t 


4 


&^ 


.-.  v    ■&£?&& 


Figure  4.      Software  display  of  distribution  of  Al2Oy 
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IV.     RESULTS  AND  DISCUSSION 

A.     AS  EXTRUDED  CONDITION 

The  extruded  bar  was  sectioned  to  examine  the  transverse,  top  and  longitudinal 
surfaces  as  shown  in  Figure  5  [Ref.  16  J.  The  top  surface  was  examined  in  the  as- 
extruded  sample  by  optical  microscopy  and  samples  were  prepared  subsequently  after 
each  rolling  pass.  Figure  6  shows  the  clustering  of  particles  with  some  banding.  On  this 
scale  it  is  not  readily  apparent  that  the  particles  are  not  randomly  distributed.  The  ar- 
rows show  examples  of  where  particles  arc  clustered  together  next  to  an  area  lacking 
particles. 


Final  rolling 
direction 


Fracture 
surface  - 


Top  surface 


^-Longitudinal 
(side)  surface 


t-  Transverse 
(end)  surface 

Figure  5.      Code  system  for  specimen  orientation  [Ref.    16]. 

B.     PROCESSED  CONDITIONS 

1.     Effects  of  Processing  on  Microstructure 
a.     Size  and  Distribution  of  Particles 

The  development  of  the  microstructure  was  characterized  at  three  different 
stages:  the  initial  stage  (rolling  passes  one  to  three),  the  intermediate  stage  (rolling  passes 
four  to  seven),  and  the  final  stage  (rolling  passes  eight  and  nine).  All  the  following 
micrographs  show  the  results  for  material  processed  by  TMP  1.  After  the  first  rolling 
pass  on  sample  A  (10  vol.  pet.  /4/203),  the  particle  distribution  can  be  seen  in  Figure  7. 
There  is  clustering  of  particles  with  areas  that  are  apparently  devoid  of  particles.  Less 
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banding  is  apparent  when  compared  to  the  extruded  condition.  In  the  initial  rolling 
passes,  there  is  an  increase  in  strain  in  each  suceeding  pass  of  the  TMP  and  the  particle 
clusters  are  being  dispersed.  However,  while  the  clusters  are  being  broken  up,  the  parti- 
cles themselves  remain  intact.  At  higher  magnifications,  the  extent  of  the  clustering  is 
more  evident.  Figure  8  shows  the  clustering  of  particles  after  the  first  rolling  pass.  At 
this  magnification  (540  X)  the  tight  grouping  of  the  particles  is  clearly  seen  with  other 
areas  having  few  particles.  During  the  intermediate  stage,  as  can  be  seen  in  Figure  9. 
clusters  are  "smeared"  into  a  banded  structure.  Figure  10  shows  that  the  clusters  them- 
selves are  being  broken  up  to  some  extent.  After  the  ninth  pass,  a  fairly  random  dis- 
tribution of  the  particles  have  been  achieved  as  shown  in  Figure  11  and  Figure  12. 

A  similar  development  through  the  rolling  can  be  seen  in  sample  C  (15  vol. 
pet.  Al203).  Figure  13  shows  the  structure  after  rolling  pass  two.  In  Figure  14,  after 
rolling  pass  five,  the  banding  in  the  structure  is  more  apparent.  Figure  15  is  just  prior 
to  rolling  pass  nine.  There  are  still  remnants  of  the  banding  but  the  tight  clusters  from 
the  extruded  condition  are  gone.  Indeed,  looking  at  rolling  pass  one  and  comparing  to 
rolling  pass  nine  there  is  a  subtle  change  in  the  particle  distribution. 

The  particle  size  remains  the  same  throughout.  The  particles  are  not  frac- 
tured into  finer  pieces.  The  distribution  of  particles  changes  from  a  random  distribution 
of  clusters  to  a  banded  structure,  and  finally  to  a  more  evenly  dispersed,  less  banded 
structure. 

b.     Recrystallization  of  the  Matrix 

It  is  evident  from  Figure  16  and  Figure  17  that  substantial  grain  refinement 
has  resulted  as  well  from  the  TMP.  Compare  the  grain  size  of  about  500  ^m  after  the 
third  rolling  pass  on  sample  C  (15  vol.  pet.  /*/203)  to  about  20  ^m  after  rolling  pass  eight. 
This  sample  was  annealed  as  well  for  30  mins  at  350°C  after  pass  number  eight.  The 
microstructure  at  the  early  stages  of  processing  (see  Figure  16)  is  not  well  defined  except 
at  the  neighborhood  of  the  particles  where  the  localized  contrast  suggests  the  formation 
of  local  lattice  rotation.  These  highly  deformed  sites  in  turn  help  to  promote  particle- 
stimulated  nucleation  during  annealing,  as  shown  in  Figure  18.  It  is  highly  probable  that 
this  mechanism  is  the  key  to  the  grain  refinement.  Further  evidence  to  confirm  the 
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Figure  6.      As-extruded  top  surface  orientation  of  10  vol.  pet.  Alumina  (108X) 


Figure  7.      Sample  A  after  rolling  pass  one,  10  vol.  pet.  Alumina  (54X). 


Figure  8.      Sample  C  after  rolling  pass  one,  15  vol.  pet.  Alumina  (540X). 


Figure  9.      Sample  A  after  rolling  pass  six,  10  vol.  pet.  Alumina  (54X). 
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Figure  10.      Sample  C  after  rolling  pass  three,  15  vol.  pet.  Alumina  (540X). 


Figure  11.      Sample  A  after  rolling  pass  nine,  10  vol.  pet.  Alumina  (54X). 
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Figure  12.      Sample  C  after  rolling  pass  six,  15  vol.  pet.  Alumina  (540X). 


Figure  13.      Sample  C  after  rolling  pass  two,  15  vol.  pet.  Alumina  (108X). 
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Figure  14.      Sample  C  after  rolling  pass  five,  15  vol.  pet.  Alumina  (108X). 
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Figure   15. 


Sample  C  before  rolling  pass  nine,  15  vol.  pet.  Alumina  (54X). 
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Figure  16.      Sample  C  after  rolling  pass  three,  15  vol.  pet.  Alumina  (200X). 


Figure  17.      Sample  C  after  rolling  pass  eight,  15  vol.  pet.  Alumina  (200X). 
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Figure  18. 


Sample  C  after  rolling  pass  three,  15  vol.  pet.  Alumina  (200X). 


mechanism  of  particle-stimulated  nucleation  can  be  seen  in  the  TEM  micrograph 
(Figure  23)  which  shows  extensive  dislocation  entanglement  at  the  vicinity  of  a  particle. 
A  high  dislocation  density  can  be  observed  next  to  a  large  /J/203  particle.  This  would 
provide  the  driving  force  for  the  particle-stimulated  recrystallization. 

The  extent  of  recrystallization  is  still  greater  after  rolling  pass  nine  of  sample 
F  (10  vol.  pet.  Al203)  and  G  !5  vol.  pct./i^Oj)  as  seen  in  Figure  19  and  Figure  20,  re- 
spectively. Both  of  these  hai_  ne  hour  of  annealing  between  rolling  passes.  Comparing 
among  Figure  19,  Figure  20,  and  Figure  17,  reveals  that  ■  :  structure  is  very  similar  in 
the  10  vol.  pet.  and  15  vol.  pet.  cases. 

The  TEM  micrograph  of  sample  C,  Figure  21,  shows  a  fine  particle  pinning 
the  grain  boundary.  In  the  matrix  region  the  dislocation  density  is  relatively  very  low. 
It  is  similar  to  a  fully  recovered  structure.  The  TEM  micrograph  of  sample  C  in 
Figure  22  shows  the  fully  recovered  matrix  with  fine  precipitates  also  present.  The  only 
notable  difference  is  the  precipitation  of  Mg2Sl  that  appears  to  be  coarser  with  the  longer 
reheating  interval,  (one  hour  for  F  and  G  versus  one-half  hour  for  C).  Thus,  increasing 
the  reheating  interval  for  either  the  10  or  15  vol.  pet.  of  material  does  not  alter  signif- 
icantly the  extent  of  microst:  ture  refinement,  but  just  coarsens  the  precipitates  of  the 
iV/£2Si  phase. 
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The  structure  uniformly  recrystallizes  with  a  grain  size  that  corresponds  to 
the  interparticle  spacing.  It  has  been  suggested  that  the  recrystallized  grain  size  can  be 
predicted  based  on  volume  percent  and  particle  size.  From  Figure  24  it  can  be  seen  that 
for  a  10  £tm  particle  diameter  we  would  expect  a  grain  size  of  approximately  20  /mi  for 
10  vol.  pet.  composite  and  a  smaller  grain  size  of  about  17  ,am  for  the  15  vol.  pet.  case 
[Ref.  17].  It  is  interesting  to  note  that  our  result  cenpares  well  with  this  prediction.  In 
Figure  19  and  Figure  20,  we  see  a  smaller  grain  siz<:  for  the  higher  volume  percent.  The 
higher  the  volume  percent  of  the  particles,  the  lower  the  interparticle  spacing  and  the 
finer  the  resulting  grain.  The  more  homogeneous  the  particle  distribution,  the  more 
uniform  the  grain  size.  Both  of  these  factors,  then,  contribute  to  a  fine,  uniform  micro- 
structure.  The  matrix  starts  out  with  fairly  large  grains  which  are  refined  and  recrystal- 
lized by  the  end  of  the  TMP. 


Figure  19.      Sample  F  after  rolling  pass  nine,  10  vol.  pet.  Alumina  (200X). 
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Figure  20.      Sample  G  after  rolling  pass  nine,  15  vol.  pet.  Alumina  (200X). 


Figure  21.        TEM    micrograph,    pinned    grain    boundary,    15    vol.    pet.    Alumina 
(S0,000X) 
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Figure  22.      TEM  micrograph,  matrix  fully  recovered,  15  vol.  pet.  Alumina  (80,000X) 


Figure  23.      TEM  micrograph  shoving  high  /?,  15  vol.  pet.  Alumina  (40,000X) 
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Figure  24.      Grain  size  vs.  volume  percent  and  particle  diameter    cf.  1 7 

2.     Effects  of  Processing  upon  Mechanical  Properties 
a.     The  Temperature  Dependence  on  Ductility 

The  as-cast  material  is  extremely  brittle.  The  as-extruded  material  has  a 
ductility  of  about  10-15  percent  elongation  to  fracture  in  the  temperature  interval  of  in- 
terest. A  typical  stress-strain  curve  from  the  current  investigation  is  shown  in  Appendix 
B,  and  the  ductility  averaged  between  20-60  percent  elongation  on  this  condition  for  the 
composite. 

The  ductility-temperature  response  does  not  vary  significantly  with  the 
change  in  volume  percentage  of  Al2Oy  The  ductility  peaks  at  approximately  375°C  for 
the  10  vol.  pet.  Al203  material  (see  Figure  26  in  Appendix  C).  The  corresponding  tem- 
perature for  the  15  vol.  pet.  sample  was  425°C  (see  Figure  27).  For  sa  pies  F  and  G, 
which  were  annealed  for  one  hour  versus  one-half  hour  for  sample;  A  and  C  (see 
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Figure  28  and  Figure  29),  the  ductilities  and  peak  temperature  were  comparable.  A 
comparison  of  the  previous  work  using  one-half  hour  anneal  and  the  current  work  done 
using  one-hour  of  annealing  is  shown  in  Figure  30  and  Figure  31  [ref.  13].  The  ductility 
was  found  to  be  less  than  in  the  previous  research.  The  previous  data  show  a  slightly 
higher  tensile  ductility  when  higher  rolling  temperatures  are  used.  The  ductility  data  for 
the  current  study  are  summarized  in  Appendix  C.  It  is  evident  from  these  results  that  the 
TMP  yields  in  an  enhanced  ductility  when  compared  with  the  ductility  of  the  as-extruded 
condition. 

b.     The  Temperature  Dependence  of  Ultimate  Strength 

The  ambient  temperature  properties  of  this  material  is  shown  in  Table  8 
[Ref.  3].  It  is  noteworthy  that  both  the  ambient  strength  and  ductility  are  improved  by 
the  processing. 

The  UTS  decreases  with  increasing  temperature  as  shown  in  Figure  32, 
Figure  33,  Figure  34,  and  Figure  35  in  Appendix  D.  As  with  the  ductility,  the  ultimate 
strength  (UTS)  does  not  change  significantly  with  the  volume  percentage  of  Al2Ov 
Comparing  to  data  from  previous  work,  different  annealing  time  does  not  effect  the  UTS 
at  higher  test  temperatures  [Ref.  13].  Previous  data  showed  an  increase  in  strength  at 
higher  rolling  temperatures  (see  Figure  36  and  Figure  37).  At  lower  rolling  temperatures 
the  specimens  proved  to  be  weaker  at  the  lower  tensile  test  temperatures. 


Table  8.     MECHANICAL    PROPERTIES    FOLLOWING    AGING    TO    PEAK 
STRENGTH 


Material  Condition 

Yield 

Strength 

(MPa) 

Ultimate  Tensile 
Strength  (MPa) 

Percent 

Elongation 

(%) 

6061-T6  Unreinforced 

276 

310 

12 

Extruded 

328 

350 

5.6 

350°C  Rolled 

375 

374 

7.0 

There  are  two  general  observations  on  the  mechanical  data: 

1.  Reduced  pass  temperature  yields  a  material  weaker  at  low  test  temperatures  but 
without  any  enhancement  in  ductility. 

2.  Decreasing  the  anneal  time  between  rolling  passes  increases  the  strength,  and  sig- 
nificantly enhances  the  ductility.  Thirty  minutes  appears  to  be  the  optimum  time. 
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C.     SUMMARY 

This  investigation  was  a  study  of  the  effects  of  TMP  on  the  evolution  of  the  micro- 
structure  in  an  aluminum  MMC  containing  either  10  or  15  vol.  pet.  Al2Oy  The  as-cast 
material  is  extremely  brittle  due  to  the  non-homogeneous  particle  distribution  in  the 
matrix.  When  extruded  at  a  17  to  1  ratio,  the  particle  distribution  improved  which  re- 
sulted in  higher  strengths  and  ductilites.  Thermomechanical  processing  by  isothermal 
rolling  at  250°C  and  350°C  further  improved  the  particle  distribution. 

This  study  has  followed  the  development  of  the  microstructure  from  the  beginning 
to  the  end  of  a  rolling  sequence.  The  processing  did  homogenize  the  microstructure.  The 
particle  distribution  was  improved  without  any  sign  of  particle  fracture.  The  matrix  was 
recrystallized  by  the  TMP  and  the  matrix  grains  were  refined  from  500  to  20  ^m.  The 
mechanical  properties  were  greatly  improved  when  compared  to  the  as-cast  or  extruded 
material.  A  longer  anneal  time  between  rolling  passes  seems  to  indicate  a  coarser 
microstructure  with  more  time  for  grain  growth  and  the  precipitation  of  the  Mg  2S'i  phase. 
The  mechanical  properties  were  enhanced  in  the  ambient  and  elevated  temperature  tests 
[Ref.  3].  The  lower  pass  temperature  yielded  a  material  weaker  at  low  test  temperatures 
without  any  enhancement  in  ductility.  Decreasing  the  anneal  time  between  rolling  passes 
slightly  increases  the  strength  and  significantly  enhanced  the  ductility. 
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V.     RECOMMENDATIONS  FOR  FURTHER  STUDY 

1.  Perform  identical  experimentation  on  a  monolith  6061  and  compare  to  the  MMC 
results. 

2.  Use  TMP  2  (with  the  increasing  strain  per  pass)  and  examine  the  microstructure 
and  mechanical  data  as  compared  to  TMP  1. 

3.  Attempt  TMP  2  at  350°C  for  both  rolling  and  annealing  until  approximately  the 
fifth  rolling  pass  and  then  use  only  250°C  for  the  rest  of  the  process.  This  should 
prevent  the  alligator  cracks  early  in  the  processing. 

4.  Increase  the  width  to  thickness  ratio  and  decrease  the  length  to  width  ratio  to  3.0 
to  prevent  "alligator"  cracking.  This  will  allow  for  the  partially  split  material  to  be 
sectioned  off  and  used  for  optical  examination  while  still  having  ample  material 
remaining  to  continue  the  TMP  and  machine  a  sufficient  quantity  of  coupons. 

5.  Investigate  the  properties  with  an  anneal  time  between  rolling  passes  of  approxi- 
mately twenty  minutes. 

6.  Investigate  the  properties  of  still  higher  volume  fraction  MMC. 
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APPENDIX  A.     PROGRAMS 

A.     DATA  ACQUISITION  PROGRAM 

Due  to  the  limitations  of  the  Instron  6027  plotter,  a  program  was  written  for  the 
Hewlett  Packard  3852A  Data  Acquisition  Sysytem  (HP)  to  acquire  the  load  data  from 
the  Instron  [Ref.  18].  This  program  was  subsequently  broken  into  two  sub-programs 
with  redundant  sections  removed  and  extra  features  added.  This  solved  the  problem  of 
one  program  having  inadequate  memory  to  do  all  that  was  required.  The  first  program 
called  ACQR  and  the  second  is  called  REDUCE. 
1.     Users  Guide 

ACQR  performs  several  functions.  It  will  acquire  the  voltage  signals  from  the 
Instron  6027  while  plotting  that  load  vs.  time  data  simultaneously.  The  data  can  be 
graphed  on  the  video  screen  or  on  the  hard  copy  plotter.  The  data  can  then  be  stored 
on  either  the  3  1/2"  floppy  or  hard  disks. 

Once  the  HP  system  is  powered  up,  it  will  ask  if  you  wish  to  use  the  floppy  or 
hard  disk  drive  to  load  the  program.  Choosing  the  hard  drive  will  give  the  menu  for  the 
installed  programs.  Select  item  7  for  OTHER'.  The  next  menu  choice  will  be  'ACQR'. 
The  program  then  asks  if  you  wish  to  see  the  operating  instructions  which  are  summa- 
rized below.   The  instructions  show: 

1.  Sample  data 

a.  Sample  geometry  and  dimensions 

b.  Identify  sample 

c.  Test  temperature 

d.  Cross  head  speed 

e.  Load  cell  range 

f.  Tension  or  compression  test 

g.  Plotting  parameters 

2.  Running  a  Test 

a.  Choose  to  view  the  data  collection  while  in  progress  on  the  screen  or  plotter 

b.  Start  the  test  once  the  Instron  is  engaged 

c.  Test  complete 

3.  Save  and  Verifv  Data 
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a.  Store  data  -  the  program  looks  at  the  number  of  data  points  and  allocates  a 
sector  on  the  disk  with  the  exact  size  of  memory  required.  The  program  tells  you 
the  name  of  the  last  program  saved  ns  a  reminder.  You  arc  filing  the  data  in  two 
stages.  You  arc  giving  the  name  that  the  file  will  have  and  you  allocate  the 
amount  of  memory  space  needed  to  accomodate  the  file.  The  (empty)  file  is 
created  in  the  correct  size  required.  The  second  stage  is  the  filing  of  the  data  into 
the  empty  file  which  had  just  been  created  in  the  name  you  have  chosen. 

b.  Verify  data  -  once  filed,  use  'RECALL  OLD  DATA'  using  the  same  name  (the 
program  will  remind  you  what  the  last  file  was).  If  the  recording  was  succesful 
you  can  rcplot  the  raw  data  or  use  the  REDUCE  program  later. 

The  program  will  list  the  current  files  in  the  drive  that  is  in  use.  It  will  notify  the 
user  if  the  disk  in  use  is  full  and  that  another  must  be  used  to  save  the  intended  data. 
The  data  can  be  stored  in  the  voltage  signals  or  converted  into  load  data  and  filed. 
2.    Source  Listing 


10  I  Proaram  to  acaulre  data  bv  the  HP  3852ft  from  the  Instron  G027 

IS  !  Written  03-10-88  Ton  Kelloaa  as  INST  G027 

20  I  Revised  09OCT90  bv  Paul  Maori 

25  I  Stored  as  ACQR 

30  DIM  Strain( 5000)  .Stress* 5000) .Samole  nr$[50]. Area  i  (  5000  )  .Extens<  5000  ) 

35  I  note:  Extens  is  used  for  inouttina  strain  aaae  data 

40  DIM  X  axis$C25] 

41  File  nameS-"NONE  YET" 

42  Starter:     I 

43  PRINTER  IS  I 

45  KEY  LABELS  OFF 

46  CLEAR  SCREEN 

47  PRINT  "   " 

48  PRINT  "  " 

50  PRINT  "  Oo  vou  want  oDeratlna  instructions?" 

51  60SUB  Yes  no 

52  IF  Ansuer$-"N"  THEN  GOTO  Init  sec 

53  OFF  KEY 

54  ON  KEY  I  LABEL  "  Samole   Data    "  GOTO  Paae  1 

55  ON  KEY  2  LABEL  "Runnina   a  Test  "  GOTO  Paae  2 
5G  ON  KEY  3  LABEL  "  Verify    Data  "  GOTO  Paae  3 
57  ON  KEY  4  LABEL  "  "  GOTO  Ms  soin 
58-  ON  KEY  5  LABEL  "  "  GOTO  Ms  soin 

59  ON  KEY  G  LABEL  "CONTINUE      "  GOTO  Init  sec 

G0  ON  KEY  7  LABEL  "  QUIT"  GOTO  Stoooer 

61  ON  KEY  8  LABEL  "  MAIN    MENU  "  GOTO  Main  menu 

62  KEY  LABELS  ON 

63  Ms  SDin:  GOTO  Ms  soin 
G4  Paae  1 :  ! 

65         CLEAR  SCREEN 
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GG  PRINT  "   OPERATING  INSTRUCTIONS  FOR  DATA  ACQUISITION" 

G7  PRINT  "  " 

68  PRINT  "I.  Chanae  Current  Set-UD 

G9  PRINT  "    I.  <NEED  SAMPLE  DIMENSIONS) 

70  PRINT  "       -  sample  aeometry  and  dimensions        <RECT>  &  tvoe  numbers  < 
RETURN)" 

71  PRINT  "    2.  <IDENTIFY  SAMPLE)  -  describe  samole 

72  PRINT  '    3.  <CHANGE  SET-UP) 

73  PRINT  "      A.  <SAMPLE  PARAMETERS)" 

74  PRINT  "  -  <CHANGE  TEMD  tvne  heater  torn 
0" 

75  PRINT  "       B.  <TEST  PARAMETERS)" 

7G  PRINT  "         -  (CHANGE  CROSS  HEAD  SPEED)" 

77  PRINT  "         -  (CHANGE  LC  "  CELL  RANGE)" 

78  PRINT  "         -  (TENSION/"    SESSION)" 

79  PRINT  "       C.  (PLOTTING  PA    ITERS)" 

80  PRINT  "  -  X  ,Y  axes  laoels;  X  ,Y  minimum  and  maximum  values" 

81  PRINT  "    4.  (SHOW  SET-UP)   -   chanae  mistakes  if  any 

82  PRINT  "    5.  (SET-UP  OK)  " 

83  PRINT  " 

84  PRINT  "  SEE  'Runnlna  a  test'  FOR  THE  INFORMATION  NEEDED  NEXT" 

85  GOTO  Ms  3Din 
8G  Pace  2:  ! 

87         CLEAR  SCREEN 

89  PRINT  "   HOU  TO  START  A  TEST  RUN" 

90  PRINT  "  " 

91  PRINT  "II.  (RUN) 

92  PRINT  "       -  use  Blotter?  (YES) " 

93  PRINT  "       -  load  oaoer  (RETURN)" 

94  PRINT  "       -  choose  oen  draws  axes" 
9G  PRINT  "  ensure  INSTRON  orinter  is  'ONLINE'  or  there's  NO  DATA  COMING" 

97  PRINT  "  when  INSTRON  started  and  ready  to  acouire  data      .    (RETURN)" 

93  PRINT  "  when  INSTRON  finished  and  test  comolete  (TEST  COMPLETE)" 

99  PRINT  "    I  .  (MAIN  MENU) 

1 00  PRINT  "    2.  (STORE  DATA) 

101  PRINT  "       -  Do  vou  want  to  store  data  to  the  f loony  disk?      (YES)" 

102  PRINT  "       -  file  to  be  used?  aive  it  a  name" 

103  PRINT  "       -  create  a  new  file?  (YES)" 

104  PRINT  "      -  Do  you  want  to  store  data?  (YES)" 

105  PRINT  " 

106  PRINT  " 

107  PRINT  " 

108  PRINT  "  SEE  'Verify  data'  FOR  THE  INFORMATION  NEEDED  NEXT" 

109  GOTO  Ms  soin 
t 10  Paae  3: I 

t 1 1        CLEAR  SCREEN 

112  PRINT  "   HOU  TO  UERIFY  THE  DATA  UAS  STORED  ON  THE  FLOPPY  DISK* 

I  13  PRINT  ■  ' 

114  PRINT  *III.  (RECALL  OLD  DATA) 

115  PRINT  '       -  recall  data  from  floDDy?  <YES>" 

116  PRINT  "       -  file  last  used  was: 
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117 
ve" 
I  18 
119 

15? 

122 

123 

124 

125 

126 

-uo' 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

148 

147 

148 

149 

150 

151 

152 

153 

154 

15E 

157 

158 

159 

160 

1G1 

162 

163 

164 

165 

165 


PRINT 

PRINT 
PRINT 

pro 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


file  to  ba  used? 

Do  you  want  to  use  plotter? 
(MAIN  MENU)" 

(CHANGE  MAIN  AXES) 

create  a  new  file? 

Do  you  want  to  use  olotter? 

<C0NTINUE  PL0T> 

(PRINT  DATA) 


sane  name  as  abo 
<N0>" 

veri  f y" 

if  needed" 

<YES>" 

(YES)" 

aives  hard  coov  of  set 


PRINT  " 

PRINT  " 

PRINT  "  END  OF  INSTRUCTIONS 

GOTO  Ms  soin 

Init  sec:   ! 

Str  .rate«1  .07  !mm/min 

Gauae»l2.7   I aauae  lenath  in  mm 

T  start-0 

T  end=!000 

T  total-1000 

Load  min-0 

Load  max-2 

Fs  load  cell-20 

Test  temo-300 

X  axis$-"Time.  minutes" 

Y  ..axis*- "Load.  kN" 

Te  co-1  ! TENSION  ONLY  TEST 

E.\tensometer$-"Of  f " 

Ex  convert-1 

Ex  inter-0 

Exo  con-1 

Exo  int-0 

Exolot0-0 

ExDlotmax-20 

Wide-0 

Thick-0 

GOSUB  Show  set  jjo 
Main, menu:   ! 


PRESS  (CONTINUE)" 


BEEP  2000.. 1 

OFF  KEY 

ON  KEY  1  LABEL 


ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 


LABEL 
LABEL 
LABEL 
LABEL 


'Chanae 
"Show 
1  QUIT' 
1  QUIT" 
'Store 


Set-uo"  GOTO  Set  no  jnenu 
Set-uo"  GOTO  Show, set  „uo,a 
GOTO  Stoooer 
GOTO  StoDDer 
Data"  GOTO  Store  jJata 
Data"  GOTO  Plot. data 
Old  Data"  GOTO  Recall  .data 
ON  KEY  8  LABEL  "RUN"  GOTO  Set_uo.ok 
IF  <Y  axis*-"Load.  kN"  OR  V  axis*-"Streas  .  MPa"  )  AND  Fs  Joad  _cell-0  THEN 


LABEL  "Plot 
LABEL  "Recall 
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IG7  ON  KEY  7  LABEL  "NEED     LOAOCELL"  GOTO  Load  cell 

IG8  ON  KEY  8  LABEL  "DATA     NEEDED"  GOTO  Mainjnenu 

I  69  BEEP  2000.. I 

170  BEEP  2500,. I 

171  END  IF 

172  IF  (Sanole  area-0  OR  Gauqe-0  )  THEN 

173  ON  KEY  3  LABEL  "NEED  SA.DIMEN."  GOTO  S_area_1 

174  ON  KEY  8  LABEL  "OATA    NEEDED"  GOTO  Main  nenu 

175  BEEP  2000.. 1 
I7G  BEEP  2500.. 1 

177  END  IF 

178  IF  Sanole  _nr$-""  THEN 

179  ON  KEY  4  LABEL  " IDENTIFYSAMPLE"    TO  Samole_id_m 

180  ON  KEY  8  LABEL  "DATA    NEEDED"    TO  Main  menu 

181  BEEP  2000.. I 

182  BEEP  2500.. 1 

183  END  IF 

184  KEY  LABELS  ON 

185  Ma  in_nenu_ldle :  GOTO  Main_nenu_idle 
13G  Sanole_id_3:   ! 

187  ON  KEY  I  LABEL  "  Ident i f ySamole"  GOTO  Sanole  _id  _s  _2 

188  ON  KEY  2  LABEL  " Ident l f YSanole"  GOTO  Sariole_id_s_2 

189  ON  KEY  3  LABEL  "Chanqe   Temp"  GOTO  Chq_test _temo 

190  ON  KEY  4  LABEL  "Change   Temp"  GOTO  Chq_test _tewD 

191  FOR  Q-S  TO  8 

192  ON  KEY  Q  LABEL  "Chanqe   Dimen's"  GOTO  S_area_2 

193  NEXT  Q 

194  Sanole_id_soin:GOTO  Samole_id_so in 

195  Chq_test_teno:  ! 
19G  Var-»Test_teno 

197  GOSUB  Uar_chanqe 

198  Test_temo=»Uar 

199  GOTO  Set_up_menL 

200  Satnole_id_3_2:   ' 

201  GOSUB    Samole_id 

202  GOTO   Set_uojnenu 

203  SanDle_id_m:       ! 

204  G0SU8  Samole_id 

205  GOTO  Main_menu 
20G  Sanole_id:   ! 

207  KEY  LABELS  OFF 

208  INPUT  "Identify  samole  50  characters  max"  , Samole _nr$ 

209  RETURN 

210  S_area_l  :   I 

21 1  GOSUB  S_area 

212  GOTO  Mainjnenu 

213  S_area_2:   ! 

214  GOSUB  S_area 

215  GOTO  Set_uo_menu 
21G  Show_set  _uo_a  *   ! 
217  GOSUB  Show  set  uo 
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218  GOTO  Main_menu 

219  Recall_data: ! 

220  GOSUB  Re_data 

221  60T0  Plot_data 

222  Re_data:i 

223  GOSUB  Uhichjnsu 

224  ON  ERROR  GOTO  Incut _er-r 

225  INPUT  "File  to  be  used?  Don't  tyoe  suffix  X,Y,Z  or  Q. " ,Fi le_nane$ 
22G  XfileS-File_naneS&"B- 

227  Yf  lle$-File_nane$&"C" 

228  Zfile$-File_name$&"Z" 

229  Qfile«-File_nane$8,"0" 

230  ASSIGN  @Path1  TO  XfileS 

231  ASSIGN  @Path2  TO  YfileS 

232  ASSIGN  SPath3  TO  ZfileS 

233  ASSIGN  @Path4  TO  QfileS 

234  Njpolnts-5000'THIS  IS  TO  RESET  FROM  LAST  N_points  SO  ALL  DATA  IS  PLOTTED 

236  i  ON  ENO  @Path3  GOTO  Plot_data 

237  OFF  ERROR 

238  ON  ERROR  GOTO  240 

239  ENTER  0Pathl ;Strain(»  ) 

240  OFF  ERROR 

241  ON  ERROR  GOTO  243 

242  ENTER  9Path2 i Stress* *  ) 

243  OFF  ERROR 

244  ON  ERROR  GOTO  248 

245  E_c"Ex_convert 
24G  E_i-Ex_inter 

247  ENTER  @Path3sSamole_nrS  ,X_axis$  ,Y_a>.is$  ,Dia  ,Uide  , Thick  ,Gauqe  J_start  ,T_end 
,Load_min  ,Load_max  ,Fs_load_cell  ,Te_co,Str_rate  ,ExtensometerS  ,E_c  ,E_i  ,Test _temo 

248  OFF  ERROR 

249  ON  ERROR  GOTO  252 

250  ENTER  @Path4;Extens( » > 

251  OFF  ERROR 

252  ASSIGN  SPath4  TO  » 

253  ASSIGN  SPathl  TO  » 

254  ASSIGN  @Path2  TO  • 

255  ASSIGN  @Path3  TO  • 
25B  RETURN 

257  Inout_err:   I 

258  PRINTER  IS  1 

259  IF  ERRN-5G  THEN 
2S0  PRINTER  IS  701 
2G1  CAT 

2G2  FOR  Q-l  TO  5 

2B3  PRINT 

2G4  NEXT  Q 

2G5  PRINTER  IS  1 

2G6  ENO  IF 

2G7  PRINT  USING  "9,t" 
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258  BEEP 

259  PRINT  ERRMS 

270  GOTO  Recall _data 

271  Store_data:  I 

272  GOSUB  Uhichjnsu 

273  ON  ERROR  GOTO  Store_err 

274  PRINT  "Name  of  last  file  Is:    ",Ftle_nameS 

275  INPUT  "File  to  be  used?  Don't  type  suffix  B ,C ,orZ. " ,File_nane$ 
27G  Xf ile$-Flle_name$&"B" 

277  YfileS-File_nar*e$&"C" 

278  Zf lle$-File_nameS&"Z" 

279  QfileS-File_name$&"0" 

280  ASSIGN  @Path1  TO  XfileS 

281  ASSIGN  0Path2  TO  YfileS 

282  ASSIGN  8Path3  TO  ZfileS 

283  ASSIGN  0Path4  TO  QfileS 

284  ON  END  @Path4  GOTO  Mainjnenu 

285  OFF  ERROR 

28G  ON  ERROR  GOTO  288 

287  OUTPUT  @Pathl ;Strain(»  ) 

288  OFF  ERROR 

289  ON  ERROR  GOTO  291 

290  OUTPUT  @Path2;Stress< »  ) 

291  OFF  ERROR 

292  ON  ERROR  GOTO  29G 

293  E_c=Ex_convert 

294  E_i-Ex_inter 

295  OUTPUT  9Path3tSanole_nr$  ,X_axisS  ,Y_a>.is$  ,Dla  ,Wide  Jhick  ,Gauqe  J_start  ,T_en 
d, Load  _r>  in  .Load  _nax,Fs_load_c  ell  ,Te_co,Str_rate,Exten3  0Pieter$,E_c  ,E_i  , Test  _temo 
29G  OFF  ERROR 

297  ON  ERROR  GOTO  300 

298  OUTPUT  9Path4;E<tens< » > 

299  OFF  ERROR 

300  ASSIGN  @Path4  TO  • 

301  ASSIGN  @Pathl  Tr  * 

302  ASSIGN  @Path2  *   • 

303  ASSIGN  @Path3  TO  • 

304  MASS  STORAGE  IS  " :CS80  ,700  J " 

305  GOTO  ttainjienu 
30G  Store_err:   ! 

307  PRINTER  IS  I 

308  IF  ERRN-5G  THEN 

309  OFF  ERROR 

310  PRINT  "File  not  found.  Below  is  a  list  of  current  files." 

311  CAT 

312  FOR  Q-1  TO  5 

313  PRINT 

314  NEXT  Q 

315  PRINT  "Uould  you  like  to  create  a  new  file?    <Y>  if  this  is  new  data" 
31 G  GOSUB  Yes_no 

317  IF  Answer$-"Y"  THEN 
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31 8  PRINT  "Insert  data  disk" 

319  BEEP 

320  New_file:  ! 

321  ON  ERROR  GOTO  Disk_full 

322  PRINT  "Creatinq  new  files " 

323  CREATE  BOAT  File_narne$&"B" ,8 ,N_points 

324  CREATE  BOAT  Fl  la_naneS&"C" ,8 ,N _point s 

325  CREATE  BOAT  Flle_nane$&"Z" , I  , 100  I  ITS  STILL  LESS  THAN  1000 
32G  CREATE  BOAT  Flle_nane*&"Q"  .1  ,N  joints 

327  OFF  ERROR  !N_points  is  the  «  of  data  Doints  acauired 

328  ELSE 

329  GOTO  Store_data 

330  END  IF 

331  ELSE 

332  PRINT  ERRMS 

333  OFF  ERROR 

334  PRINT  "Do  you  want  to  try  aqain?" 

335  GOSUB  Yes_no 

33G  IF  Answer$-"Y"  THEN  Store_data 

337  GOTO  Mainjnenu 

338  END  IF 

339  PRINT  USING  "@,»" 

340  BEEP 

341  GOTO  Store_data 

342  Disk_full:   I 

343  OFF  ERROR 

344  PRINT  "This  disk  is  full.  Do  you  want  to  replace  it  with  a  new  disk?' 

345  GOSUB  Yes_no 

34G  IF  Answer$-"N"  THEN  Store_data 

347  GOTO  New_file 

348  Print_data:   ! 

349  PRINTER  IS  701 

350  GOSUB  Show_set_uo_2 

351  PRINTER  IS  1 

352  GOTO  Mainjnenu 

353  Plot_data:   ! 

354  G0SU8  Plot_set_uo 

355  L_tyoe«0 
35G  Next_curve:   1 

357  L_type-L_tyDe+t 

358  LINE  TYPE  L_type 

359  OFF  KEY 

3S0  ON  KEY  I  LABEL  "Cont InuePlot "  GOTO  Plot_data_2 

3G1  ON  KEY  2  LABEL  "CHANGE   MAINAXES"  GOTO  Plot_axes 

3S2  ON  KEY  3  LABEL  "             "  GOTO  Plot _data_ldle 

3G3  ON  KEY  4  LABEL  "NEW      PLOT"  GOTO  Maln_nenu 

3G4  ON  KEY  5  LABEL  "Main    Menu"  GOTO  Mainjienu 

3G5  ON  KEY  G  LABEL  "Print    Data"  GOTO  Print_data 

3GG  IF  Extensoneter$-"ON*  THEN 

3G7  ON  KEY  7  LABEL  "LOAD-   STRAIN"  GOTO  Plot_data_3 

3G8  ELSE 
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369  ON  KEY  7  LABEL  "  "  GOTO  Plot  _data_idle 

370  END  IF 

371  ON  KEY  8  LABEL  "LOAD-   TIME"  GOTO  Plot_data_2 

372  KEY   LrtOCLG    ON 

373  Plot_data_ldle:00T0  Plot _dala_ldla 

374  riol_axea:   I 

375  G05U8  Axes_u 
37G  GOSUB  Start_t 

377  GOSUB  Plot_3et_uo 

378  GOTO  Plot_data_2 

379  Sub_axes:   ! 

380  GOSUB  Ex_plt_cnv 

381  GOSUB  Plot_set_uo 

382  60T0  Plot_data_2 

383  Plot_data_3:   I 

384  GOSUB  Pen_3eiect 

385  KEY  LABELS  OFF 

38G  IF  Answer$-"Y"  THEN  GOSUB  Pen_select 

387  FOR  1-1  TO  5330 

388  Exoiot-Extens* I )»ExD_con  +  Exo_int 

339  IF  1-1  OR  Exolot=T_start  THEN  MOVE  Exolot  .Stress* I  ) 

390  IF  Exolot<T_start  OR  ExDlot>T_end  THEN  End_plot_3 

391  PLOT  ExDlot  .Stress*  I  ) 

392  End_plot_3:   I 

393  NEXT  I 

394  IF  Answer$="Y"  THEN  PEN  0 

395  GOTO  Next_curve 
39G  Re_data_1  :   ! 

397  G0SU8  Re.data 

398  Plot_data_2:   ! 

399  IF  Uhich_pltr$-"Plotter"  THEN  GOSUB  Pen_select 

400  KEY  LABELS  OFF 

401  FOR  I-l  TO  5000 

402  IF  I-N_points  THEN  GOTO  Next_curve 

403  IF  1-1  OR  Strain( I >-T_start  THEN  MOUE  Strain(  I  )  .Stress* I > 

404  IF  Strain*  I  XT   -art  THEN  End_curve 

405  IF  Te_co-l  ANC   3trass(  I  )>Load_nax  OR  St    s(  I  KLaadjnln)  THEN  GOTO  End. 
curve 

40G  IF  Te_co-3  AND  <  Stress*  I  KLoadjnax  OR  St   js( I )>Load_nin )  THEN  GOTO  End. 
curve 

407  IF  Strain* I )>T_end  THEN 

408  1-5000 

409  GOTO  End_curve 

410  END  IF 

411  IF  I>Nj?oints  AND  Strain* I >-0  THEN 

412  GOTO  Next_curve 

413  END  IF 

415  PLOT  Strain* I), Stress* I  ) 

41 G  End_curve:     ! 

417  NEXT  I 

418  IF  AnswerS-"Y"  THEN  PEN  0 

419  GOTO  Next_curve 

420  Show  set  uo  1  :   I 
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421  GOSUB  Show_set_uo 

422  GOTO  Main  _menu_i  die 

423  Stoooer:  I 

424  PRINTER  IS  I 

425  KEY  LABELS  OFF 

42G    PRINT  "Do  you  want  to  raduco  data  or  use  another  Droqram7" 

427  GOSUB  Yes_no 

428  IF  AnswerS-"Y"  THEN  LOAD  "MSLABS" 

429  STOP 

430  Load_cell:   I 

431  KEY  LABELS  OFF 

432  INPUT  "What  is  the  full-scale  load  value  in  kN?"  ,Fs_load_cel  1 

433  GOTO  Main_menu 

434  S_area:   ! 

435  OFF  KEY 

436  FOR  0-1  TO  4 

437  ON  KEY  Q  LABEL  "round    sanole"  GOTO  Round 

438  ON  KEY  Q+4  LABEL  "rect.    sanole"  GOTO  Rect 

439  NEXT  Q 

440  KEY  LABELS  ON 

441  S_area_idle:G0T0  S_area_idle 

442  Round'.  ! 

443  KEY  LABELS  OFF 

444  INPUT  "Sanole  diameter  ,  nm?",Dia 

445  Samole_area-(PI/4)»(0la*Z ) 
44G    GOTO  G_lenqth 

447  Rect:   ! 

448  KEY  LABELS  OFF 

449  INPUT  "Sanole  width,  mm?"  , Wide 

450  INPUT  "Sanole  thickness,  nn?", Thick 

451  Sanole_area=wide»Thick 

452  G_lenqth:  ! 

453  PRINT  "Default  qauqe  lenqth  is  ", Gauqe;"  mm.  Hit  <RETURN>  to  acceot 

454  INPUT  "Gauqe  lenqth,  mm?"  ,Gauqe 

455  RETURN 

45G  Show_set  _uo :  ' 

457  PRINTER  IS  1 

458  Show_set  _uo_Z :   I 

459  PRINT  USING  "<»,*" 

460  PRINT  "Current  set  uo  is  as  follows:" 

461  PRINT  "    Sanole  Parameters:" 

462  IF  Samole_nr$-""  THEN 

463  PRINT  "      Sample  unnamed" 

464  ELSE 

465  PRINT  "     Sanole:  ";Samole_nr$ 

466  END  IF 

467  IF  Gauqe<)0  THEN 

468  PRINT  "      Gauqe  lenqth  is  "jGauqe:"  mm" 

469  ELSE 

470  PRINT  "      No  qauqe  lenqth  specified" 

471  END  IF 

472  IF  Dia<>0  THEN  Samole  area-( PI/4 )»< Dia*2 ) 
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473  IF  Thick<>0  AND  Ulde<>0  THEN  Samole_area-Uide»Thick 

474  IF  SamDle_area<>0  THEN 

475  IF  Dia<>0  THEN 

476  PRINT  "      Usinq  round  samole  with  a  dianete-  of  "iDiat"  nn" 

477  ELSE 

478  PRINT  "      Usinq  flat  samole  "tUldei"  mm  wide  X  "iThickt'nm  thick" 

479  END  IT 

480  PRINT  "     Samole  area  is  " iSamole_area  i "  mm*2" 

481  ELSE 

482  PRINT  "      Sanole  dimensions  are  incomolete" 

483  END  IF 

484  PRINT 

485  PRINT  "    Testinq  Parameters:" 

48G    PRINT  "      Crosshead  speed" ;Str_ratei "  mm/min" 

487  PRINT  "      Full-scale  ranqe  of  load  cell  is  set  for  " ;Fs_load_cel 1 i "kN" 

488  PRINT  "      Hold  tine  at  finish  " iHold_t ime i "  min" 

489  IF  Te_co-l  THEN  PRINT  "     Tension  only  test" 

490  IF  Te_co-2  THEN  PRINT  "      Tension/comoress ion  test" 

491  IF  Te_co=3  THEN  PRINT  "     Comoression  only  test" 

492  PRINT  "       Extensometer/Strain  Gaqe  is  " ;Extensometer$ 

493  IF  Extensometer$-"On"  THEN 

494  PRINT  "      Extensometer/S train  qaqe  conversion  factor  is  ";Ex_convert 

495  PRINT  "      Extensoneter/Straln  qaqe  interceot  Is  ";Ex_inter 
49G      PRINT  "      Strain  shown  will  be  from  ";Exolot0;"  to  "  ;Exd lotmax 

497  END  IF 

498  PRINT  "      Test  temoerature  is  "  ;  Test _temo i "  deq  C  or  " ; Test _teno+273  .  I  G s 
"  K" 

499  PRINT 

500  PRINT  "    Plottinq  Parameters:" 

501  IF  X_axis$-"Time,  minutes"  THEN  PRINT  "      Start  time  ";T_start;"  min    F 
inish  time  ";T_end;"  min" 

502  IF  X_axisS="Time,  seconds"  THEN  PRINT  "      Start  time  "sT_start;"  sec    F 
inish  time  ";T_endi"  sec" 

503  IF  X_axis$-"Elonqat ion ,  mm"  THEN  PRINT  "      Startinq  Elonqation  " ,T_start 
i"  mm    Finish  Elonqation  "iT_end;"  mm" 

504  IF  X_axis$-"Elonqation ,  Percent"  THEN  PRINT  "      Startinq  Elonqation  "  ,T_ 
start-,"  %  Finish  Elonqation  ";T_endi"  X" 

505  IF  X_axis$="Strain"  THEN  PRINT  "      Startinq  strain  "  ,T_sta<-    Finish  st 
rain  " i T_end 

50G    IF  Y_axls$-"Uolts  DC"  THEN  PRINT  "      Y-axis  minimum  is  "iL   :_mini"  volt 
s   and  Y-axis  maximum  is  * ;Load_max ; "  volts" 

507  IF  Y_axis$-"Millivolts  DC"  THEN  PRINT  "      Y-axis  minimum  is  "iLoad_mlm" 
millivolts   and  Y-axis  maximum  is  "tLoad_maxi"  millivolts" 

508  IF  Y_axisS-"Load,  kN"  THEN  PRINT  "      Load  ranqes  from  ",Load_min»"  kN  to 
"lLoad_max»"  kN   ( neq  value  means  compression)" 

509  IF  Y_axis$-"Stress,  MPa*  THEN 

510  PRINT  "      Stress  ranges  from  ",Load_minj"  MPa  to  "iLoad_maxi"  MPa" 

511  PRINT  "      (neq  value  means  compression  )" 

512  END  IF 

513  RETURN 

514  Set  uo  menu:   ! 
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515 
515 
517 
518 
519 
520 
52! 
522 
G23 
524 
525 
52G 
527 
528 
529 
530 
531 
532 


BEEP  2000,. 2 
BEEP  2 1 00,. 2 
OFF  KEY 
GOSUB  Show_set_up 


ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 


LABEL  "Sanole 
LABEL  'Sanole 
Test 


LABEL 
LABEL 
LA9EL 
LAOCL 
LABEL 


Parens"  GOTO  Sanole_id_s 
Parens"  GOTO  Sanole_id_s 
GOTO  Testjparans 


ON  KEY  8  LABEL 
IF  Sanole  nr$-' 


Parans ' 
'Test     Perans"  GOTO  Test_parans 
'PloUlnqParans"  GOTO  Axesjjnlts 
Plot I InQParans"  GOTO  Axe8_untts 
'"  GOTO  Set_uo_idle 
SETUP    OK"  GOTO  Mein_nenu 

'  THEN  ON  KEY  8  LABEL  " IDENTIFYSAMPLE"  GOTO  Sanole_id_s 
IF  <Y_axlsS-"Load,  kN"  OR  Y_exis$-"Stress ,  MPe"  )  AND  Fs_load_cel 1-0  THEN 
ON  KEY  8  LABEL  "NEED    LOAOCELL"  GOTO  Load_cell 
BEEP  2000,. I 
END  IF 

IF  < Y_axis$-"Stress ,  MPa"  AND  SanD le_areo-0 )  OR  ( X_axi s$="Elonqat ion ,  S"  0 
R  X_axis$-"Strain"  AND  Gauqe-0  )  THEN 

533  ON  KEY  8  LABEL  "SAMPLE  DIMEN."  GOTO  S_area_2 

534  END  IF 

535  IF  (  X_axis$«"Elonqat  ion  ,  nr\"    OR  X_ax  isS»"Elonqet  ion  ,  7."  OR  X_ax i s$»"Strain 
" )  AND  Str  rete-0  THEN 


'X-head   Soeed" 
'"  GOTO  Rates 


53G     ON  KEY  7  LABEL 

537  ON  KEY  8  LABEL 

538  ENO  IF 

539  KEY  LABELS  ON 

540  Set _uo_i die: GOTO  Set_uo_idle 

541  Testjperans:   ! 

542  ON  KEY  I  LABEL  "Chanqe 

543  ON  KEY  2  LABEL  "Chanqe 

544  ON  KEY  3  LABEL 

545  ON  KEY  4  LABEL 
54G    ON  KEY  5  LABEL 

547  FOR  Q-G  TO  8 

548  ON  KEY  Q  LABEL 

549  NEXT  Q 

550  Test_par_soin:GOTO   Test_par_soin 

551  Extoqqlej:       I 

552  GOSUB   Exjoqqle 

553  GOSUB   Ex_cnv 

554  GOSUB   Exjjlt_cnv 

555  GOTO   Set_uD_nenu 
55G    G_l_set_uo:       ! 

557  Var-6auqe 

558  PRINT  "Chanqinq  qauqe  lenqth" 

559  60SUB  Uar_chanqe 
5G0    Gauqe~Uar 

5G1    GOTO  Set_uo_nenu 
582  Start_t;   I 
5G3    Uar-T  start 


GOTO  Rates 


X-head  V"  GOTO  Rates 
Load  Cell"  GOTO  Load_cell 
Tension/Conoress ion"  GOTO  Ten_con 
Hold    Tine"  GOTO  Holds 
Extens.  Toqqle"  GOTO  Extoqqle_l 

GOTO  Test_par_soin 
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564 

SG5 

56G 

5G7 

5G8 

5G9 

570 

571 

572 

573 

574 

575 

575 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

505 

606 

607 

608 

609 

610 

611 

612 

613 

614 


PRINT  "Chanqinq  minimum  x-axis  value:" 
GOSUB  Uar_chanqe 
T_3tart-Uar 
v"ar-"T_end 

PRINT  "Chanqinq  maximum  x-axia  value:" 
GOSUB  v'ar_chanqe 
T_end»Uar 

T_ran-T_end-T_start 
Load_val8:   I 
Uar-Load_min 

PRINT  "Chanqinq  minimum  yaxi'  value:" 
GOSUB  Var_chanqe 
Load_min-Uar 
Uar-Load_max 

PRINT  "Chanqinq  maximum  yaxis  value:" 
GOSUB  Uar_chanqe 
Load_max»Uar 

Load_ran»Load_max-Load_mi  n 
RETURN 
Axes_units:   I 
GOSUB  Axes_u 
GOSUB  Start  _t 
GOTO  Set_uo_menu 
Axes_u:   ! 

KEY  LABELS  OFF 
OFF  KEY 
PRINT 
ON  KEY 

Time 

Elonq. 

Elonq. 

Strain 


ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 


Select  label  for  X-axis.  Oefault  is  time  in  minutes' 
1  LABEL  "Time    Minutes"  GOTO  Time_riin 

Seconds"  GOTO  Tlme_sec 

mm"  GOTO  Elonq_mm 

1'    GOTO  Elonq_pct 

GOTO  Strain  axis 


GOTO  Axes  idle 


LABEL 
LABEL 
LABEL 
LABEL 
FOR  Q-6  TO  8 

ON  KEY  Q  LABEL 
NEXT  Q 

KEY  LABELS  ON 
Axes_idle:G0T0  Axes_idle 
Time_min: ! 

X_axis$-"Time ,  minutes" 
GOTO  Set  _uo_Y_axxs 
Time_sec:  I 

X_axisS-"Time ,  seconds" 
GOTO  Set_uo_Y_axis 
Elonq_mm: ! 

X_axisS""Elonqat ion ,  mm" 
60TO  Set_up_y_axis 
Elonq_pct : I 

X_axisS-"Elonqat ion ,  Percent" 
GOTO  Set_uo_Y_axls 
Strain_axis : I 

X  axis$-"Strain" 
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GI5  S e  t  jjd  _y  _ax  i  s  :  I 

GIG    OFF  KEY 

GI7    PRINT  "Select  label  for  Y-axis.  Default  is  load" 

G18    ON  KEY  3  LABEL  "Volts   DC  GOTO  Uolts_y 

GI9    ON  KEY  4  LABEL  "fiU      OC"  GOTO  Mv_y 

620    ON  KEY  1  LABEL  "Load,  kN"  GOTO  Load_y 

G21    ON  KEY  2  LABEL  "Stress,  MPa"  GOTO  Stress_y 

G22   FOR  0-5  TO  8 

G23     ON  KEY  Q  LABEL  ""  GOTO  Y_ax_idle 

624    NEXT  0 

G25    KEY  LABELS  ON 

G2G  Y_ax_idle:G0T0  Y_ax_!dle 

G27  Volts_y:  ! 

G28    Y_axis*-"Volts  OC" 

G29    RETURN 

630  Mv_y:  ! 

G31    Y_axis*«"Millivolts  DC" 

G32    RETURN 

G33  Load_y  :  I 

G34    Y_axis$-"Load,  kN" 

G35    RETURN 

G3G  Stress_y: ! 

G37    Y_axis$="Stress ,  MPa" 

G38    RETURN 

G39  Rates:   • 

640    Uar-Str_rate 

G4I    PRINT  "Editinq  crosshead  soeed:  give  value  in  nn/rnin' 

G42    GOSUB  Uar_chanqe 

G43    Str_rate-Uar 

G44    GOTO  Set_uo_menu 

G45  Holds:   ■ 

G4G    GOSUB  Holds  I 

G47    GOTO  Set_UD_nenu 

G48  Holds! :   ! 

649    PRINT  "Change  hold  tine?" 

G50    GOSUB  Yes_no 

G5I    IF  Ansuer$-"Y"  THEN 

652  Var- Hold_tine 

653  GOSUB  Uar_change 

654  Hold_time-Var 
GSS    END  IF 

656  RETURN 

657  Ex_toqgle:   I 

658  PRINT  "Toqgle  extensometer?" 

659  GOSUB  Yes_no 

660  IF  Ansuer*-"N"  THEN  668 

E61    IF  ExtensometerS«"Off"  THEN 

662  Extensoneter$-"On" 

663  ELSE 

664  Extensometer$-"Of f " 
GGS    END  IF 
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666 
GG7 
6GG 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
68Z 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
71  1 
712 
713 
714 
715 
716 


RETURN 
Ex_cnv:   I 

IF  Extensometer$-"On"  THEN 

PRINT  "Change  conversion  factor?" 
GOSUB  Yes_no 
IF  Answer$-"Y"  THEN 
Uar-Ex_convert 
GOSUB  Uar_change 
Ex_convert-Uar 
END  IF 

PRINT  "Chanqe  intercept?" 
GOSUB  Yes_.no 
IF  AnsuerS-"Y"  THEN 
Uar-Ex_inter 
GOSUB  Uar_chanqe 
Ex_inter=Uar 
END  IF 
END  IF 
RETURN 
Ex_plt_cnv:   ! 

IF  Extensometer$-"On"  THEN 

PRINT  "Chanqe  minimum  strain  plotted?" 
GOSUB  Yes_no 
IF  Answer$-"Y"  THEN 
Uar=Exolot0 
GOSUB  Uar_chanqe 
Exolot0-Uar 
END  IF 

PRINT  "Chanqe  maximum  strain  Dlotted?" 
GOSUB  Yes_no 
IF  Ansuer$-"Y"  THEN 
Var-E*o lo tmax 
GOSUB  Uar_chanqe 
Exolotmax^Uar 
END  IF 

Exo_con=»<  T_start-~   id)/ 
E:<D_int-T_start-E    )t0»E 
END  IF 
RETURN 
Ten_com:   I 

KEY  LABELS  OFF 
PRINT  "TENSION 
BEEP  2000,.  I 
OFF  KEY 
ON  KEY 


_ lot0-E*Dlotmax  ) 
con 


TENSION/COMPRESSION  OR  COMPRESSION  TEST?" 


1  LABEL  "TENSION"  GOTO  Ten_onlY 

ON  KEY  2  LABEL  "TENSION"  60TO  Ten_onlY 

ON  KEY  3  LABEL  ""  GOTO  Ten_idle 

ON  KEY  4  LABEL  "TENSION/COMPRESS"  GOTO  Ten_and_com 

ON  KEY  5  LABEL  "TENSION/COMPRESS"  GOTO  Ten_and_.com 

ON  KEY  6  LABEL  ""  GOTO  Ten_idle 

ON  KEY  7  LABEL  "COMPRESS"  GOTO  Com_onlY 
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717  ON  KEY  8  LABEL  "COMPRESS"  GOTO  Com.only 

718  KEY  LABELS  ON 

719  Ten_ldle:GOTO  Ten_idle 

720  Ten_only:  Te_co"1 

721  GOTO  Set_uo_menu 

722  Ten_and_com: Te_co~2 

723  GOTO  Set_uo_menu 

724  Com_only : Te_co»3 

725  GOTO  Set_up_menu 
72G  Uar_chanqe: ! 

727  INPUT  "Type  in  desired  value"  ,Var 

728  PRINTER  IS  I 

729  PRINT  Uar-;"Is  this  OK?" 

730  GOSUB  Yes_no 

731  IF  Answer8-"N"  THEN  Uar_chanqe 

732  RETURN 
7B3  Set_up_ok:  I 
7B4  Init_daa: ! 

7G5  KEY  LABELS  OFF 

7GG  GOSUB  Plot_set_uD 

757  OUTPUT  70SVCLR" 

7B8  OUTPUT  709i"USE  000" 

7G9  PRINTER  IS  1 

770  Re_test :   ! 

771  Aca_data:' 

772  IF  Uhich_pltr$-"CRT"  THEN 

773  Penn$-"Oata" 

774  GOSUB  Pen_select 

775  END  IF 

77G  FOR  O-l  TO  4 

777  ON  KEY  Q  LABEL  "TEST    COMPLETE"  GOTO  Test_done 

778  ON  KEY  Q+4  LABEL  "RE-STARTTEST"  GOTO  Re_test 

779  NEXT  0 

780  KEY  LABELS  ON 

781  T_total=T_end-T_start 

782  T_convert=l  lassumes  x-axis  is  in  seconds 

783  IF  X_a:<isS-"Time  ,  minutes"  THEN  T_convert»l /60 

784  IF  X_axis$-"Elonqation ,  mm"  THEN  T_convert-Str_rat e/60 

785  IF  X_axis$-"Elonqation,  X"    THEN  T_convert-< Str_rate/Gauqe )»(  I 00/G0 ) 

786  IF  X_axisS-"Strain"  THEN  T_convert-<  Str-_rate/60  )/Gauqe 

787  L_convert-t  'assumes  DCU  is  output 

788  IF  Y_axis*-"Millivolts  DC"  THEN  L_convert-1 000 

789  IF  Y_axlsS-"Load,  kN*  THEN  L_convert-Fs_load_cell/10 

790  IF  Y_axis$-"Streas  ,  MPa"  THEN  L_convert-< Fs_load_cell« 100 )/Sample_area 

791  KEY  LABELS  OFF 

792  INPUT  "Hit  <RETURN>  when  ready  to  proceed. "  ,Uhich* 

793  KEY  LABELS  ON 

794  T_0-TIMEDATE    'Time  is  measured  in  seconds  then  converted  to  desired  unit 

795  LORG  5 
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79G    FOR  1-0  TO  5000 

797  REPEAT 

798  T_l-<TIMEDATE-T_0)»T_convert 

799  UNTIL  T_i>-<T_total/5000)«<I) 

800  Strain* I )-T_l 

801  OUTPUT  709i"CONFMEAS  DCV,214" 

802  ENTER  709(Stres3<  I  ) 

803  Stress* I  )-Stress(  I  )«L_convert 

804  PLOT  Strain* I  )  , Stress* I  ) 

805  IF  Extensometer$-"On"  THEN 

80G       OUTPUT  709;"CONFMEAS  0CU.215" 

807  ENTER  709iExtens( I  ) 

808  Extens* I )-Extens(I )»Ex_convert+Ex_inter ICONVERTS  TO  STRAIN  UALUES 

809  Exolot-Exter'    •Exp_con+Exp_int ICONVERTS  STRAIN  TO  PLOTABLE  VALUES 

810  MOVE  Exolot      ..s<  I  ) 

81 1  LABEL  USING      '»" 

812  END  IF 

813  NEXT  I 

814  Test_done:   I 

815  N_points-I!THIS  IS  THE  LAST  DATA  POINT  ACQUIRED 
8IG    OFF  KEY  !        AND  THE  PLOTTER  DOESN'T  GO  NUTS 

817  FOR  Q-1  TO  4 

818  ON  KEY  Q  LABEL  "  "  GOTO  Ounoer I  DUMP   PLOT??? 

819  ON  KEY  Q+4  LABEL  "Main     Menu"  GOTO  Main_r>enu 

820  NEXT  Q 

821  T_d_idle:GOTO  T_d_idle 

822  Pen_select:   ! 

823  ON  KEY  1  LABEL  "Pen  1"  GOTO  PI 

824  ON  KEY  2  LABEL  "Pen  2"  GOTO  P2 

825  ON  KEY  3  LABEL  "Pen  3"  GOTO  P3 
825  ON  KEY  4  LABEL  "Pen  4"  GOTO  P4 
827  ON  KEY  5  LABEL  "Pen  5"  GOTO  P5 
328    ON  KEY  G  LABEL  "Pen  G"  GOTO  PG 

829  ON  KEY  7  LABEL  "Orauinq  "iPennS  GOTO  Pen_seiect_idle 

830  ON  KEY  8  LABEL  "Drauinq  "&Penn$  GOTO  Pen_select _idle 

831  KEY  LABELS  ON 

832  BEEP  2000,. 1 

833  Pen_select_idle:GOTO  Pen_select_idle 

834  PI :PEN  1 

835  GOTO  Pen_return 
83G  P2:PEN  2 

837  GOTO  Pen_return 

838  P3:PEN  3 

839  GOTO  Pen_return 

840  P4.-PEN  4 

841  60T0   Pen_retur-n 

842  P5:PEN   5 

843  GOTO  Pen_return 

844  PG:PEN  G 

845  Pen_return:  ! 
84G    KEY  LABELS  OFF 
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847  RETURN 

848  Dumper:  I 

849  KEY  LABELS  OFF 

850  DUMP  DEVICE  IS  701 

851  OUTPUT  KBDi "N" i 

852  GOTO  Main_menu 

853  File_err:   ! 

854  PRINTER  IS  I 

855  PRINT  USING  "9  ,f 
85G  BEEP  2000,. 3 

857  IF  ERRN-78  OR  ERRN-85  THEN 

858  PRINT  "WARNING  you   are  initializing  this  disc.  All  data  will  be  erased. 

859  INPUT  "Hit  <RETURN>  to  cont inue"  .WhichS 
850  INITIALIZE  " :CS80  ,700  , 1 " 

QGI  END  IF 

8G2  PRINT  "Error  in  file  name  select  ion"  ,ERRN  ,ERRM$ 

8G3  GOTO  Data_save 

864  Plot_set_uD:   ! 

8G5  PRINTER  IS  I 

8GB  OFF  KEY 

8G7  PRINT  "Do  you  want  to  use  the  Plotter?" 

8G8  GOSUB  Yes_no 

8G9  OUTPUT  KBDi"K" i 

870  IF  Answer$-"Y"  THEN  INPUT  "Put  paper  in  the  plotter  then  hit  (RETURN) " ,Whi 
chS 

871  GINIT 

872  GRAPHICS  ON 

873  IF  Answer$-"Y"  THEN 

874  PLOTTER    IS   705/HPGL" 

875  VIEWPORT   0,125,0,100 
87G  Which_pltr$«"Plotter" 

877  Penn$-"Axes" 

878  GOSUB  Pen_select 

879  ELSE 

880  PLOTTER  IS  CRT  ," INTERNAL" 

881  Which_pltr$-"CRT" 

882  VIEWPORT  0,120,26,100 
8B3  END  IF 

884  Load_ran-Load_max-Load_min 

885  T_ran-T_end-T_start 

886  WINDOW  T_start-. l«(T_ran)  ,T_end  ,Load_min-. I *Load_ran ,Load_nax+. 13*Load_ran 

887  CLIP  T_start ,T_end,Load_min,Load_nax 

888  GRID  T_ran/10,Load_ran/10,T_start  ,Load_mln  ,1  ,1 

889  CLIP  OFF 

890  CSIZE  3 

891  L0R6  4 

892  MOVE  (T_start+T_end)/2  ,Load_nax+.08»Load_ran 

893  LABEL  USING  "K" i Sanole_nr$&"   "&VAL*< Test_teno >&"  C" 

894  LORG  6 

895  FOR  I-T  start  TO  T  end  STEP  (T  start-T  end)/(-5) 
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89G  MOVE  I  ,Load_mln-.025*Load_ran 

897  LABEL  USING  "K "  ;  I 

898  NEXT  I 

899  MOVE  .5*<T_start+T_end)  ,Load_mn-.07»Load_ran 

900  LABEL  USING  "K";X_axis$ 

901  LORG  8 

902  FOR  I-Load_min  TO  Load_max  STEP  Load_ran/10 

903  MOVE  T_start-( .01 •< T_end-T_start )) ,1 

904  LABEL   USING    "K"»I 

905  NEXT    I 
90G  LORG    4 

907  MOVE   T_start-<  .07»<T_end-T_atart  )  >  ,Load_ran/2+Loadj<un 

908  OEG 

90c  LOIR   90 

91  LABEL   USING    "K" ; Y_axis$ 

91  LOIR   0 

912  LORG   4 

913  IF    Extensometer$-"On"    THEN 

914  Exo_ran-E:<olotnax-E:<Dlot0 

915  CLIP  T_start  +  .  1  "T_ran  %T_end  ,Load_max  ,Load_nax  + .  I  »Load_ran 
91G  AXES  T_ran/ 10  ,Load_ran/20 ,T_start ,Load_max 

917  CLIP  OFF 

918  FOR  I-T_atart  TO  T_end  STEP  T_ran/10 

919  MOVE  I  ,Load_max+Load_ran».03 

920  LABEL  USING  "K" ; < I-Exo_int >/Exo_con 

921  NEXT  I 

922  ENO  IF 

923  RETURN 

924  Uhich_nsu:   ! 

925  MASS  STORAGE  IS  "  :CS80  ,700  J" 

92G  PRINT  "Do  you  want  to  store/recall  data  to/from  the  3-1/2  flooDy?' 

927  GOSUB  Yes_no 

928  IF  Answer$-"Y"  THEN  MASS  STORAGE  IS  ":CS80,700" 

929  KEY  LABELS  OFF 

930  RETURN 

931  Yes_no:   ! 

932  OFF  KEY 

933  KEY  LABELS  OFF 

934  FOR  Q-l  TO  4 

935  ON  KEY  Q  LABEL  "YES"  GOTO  Yesa 
93S  ON  KEY  Q+4  LABEL  "NO"  GOTO  Noo 

937  NEXT  Q 

938  KEY  LABELS  ON 

939  Yes_no_idle:GOTO  Yes_no_idle 

940  Yes3:An3wer$-"Y" 

941  RETURN 

942  Noo:Ansuer$-"N" 

943  RETURN 

944  Analyze_data:   ! 

945  PRINTER  IS  1 

94G  PRINT  "Data  analysis  section  not  written  yet" 
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947 

BEEP 

948 

GOTO  Main_wenu 

943 

END 

950 

SUB  Chanqer<Ara< • ) ,F ) 

951 

FOR  1=1  TO  5000 

952 

Ara< I )-Ara< I  )»F 

953 

NEXT  I 

954 

SUBEND 
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B.     DATA  REDUCTION  PROGRAM 

REDUCE  is  similar  in  structure  to  ACQR.  The  load/time  data  stored  by  ACQR  is 
accessed  and  converted  to  stress/strain  data. 

1.  Users  Guide 

The  program  is  used  similarly  to  ACQR.  The  user  recalls  the  data  ol' interest  ami 
plots  it  on  the  video  screen  and  then  selects  'REDUCE  DATA'  from  the  menu.  The 
elastic  range  of  the  plot  needs  to  be  linearized.  This  is  done  through  'INPUT  TYPE' 
by  I)  a  numerical  X-Y  input  via  the  keyboard,  2)  using  the  cursor  arrows,  or  3)  by  using 
the  mouse.  The  end  points  of  the  line  is  selected  and  the  last  good  data  point  is  chosen. 
The  line  is  then  drawn  over  the  plot.  If  the  slope  of  the  plastic  zone  is  not  correct,  it  can 
be  done  over  or  accepted  using  'SLOPE  OKAY'.  The  program  will  remove  the  grip 
slippage  and  re-zero  the  plot  and  display  the  true  stress  vs.  true  strain  plot  that  has  been 
"reduced"  from  the  re  ,h  load  vs.  time  plot  by  using  'PLOT  TRUE'.  Do  not  select  the 
plotter  until  you  have  changed  the  axes  to  the  appropriate  units.  The  program  prints  the 
maximum  true  stress  and  trues  strain  of  the  data  at  the  top  of  the  graph.  Round  up  to 
convenient,  easily  divisible  numbers  for  the  axes.  Also  choose  'TRUE  STRESS'  and 
"1  RUE  STRAIN'  for  the  axes  labels.  You  may  then  make  a  hard  copy  plot. 

2.  Source  Listing 


10  !  Program  to  convert  load/tine  to  stress/strain  from  the  Instron  G027 

21  I  Revised  07OEC90  Paul  Macrl 

25  I  REDUCE  (Stored  as  S24JUL) 

DIM  Strain* 5000  )  ,Stress( 5000  ) ,Samole_nr$C50] ,nrea_l< 5000 ) ,Extens(500C 
!  note:  Extens  is  used  for  inputting  strain  gage  data 

37  DIM  Stress_engr(5000  )  ,Strain_engr(  5000 ) %Stress_true(  5000 ) 

38  OIM  Strain_true(5000) 
40  DIM  X_axis«C25] 

4)  CLEAR  SCREEN 

45  Init_sec:    I 

50  Str_rate-I  .07  !mm/min 

55  Gauge" 1 2. 7   I  gauge  length  in  mm 

B0  T_start-0 

G5  T_end-I000 

70  T_total-I000 

75  Load_min-0 

80  Load_max-2 

85  Fs_load_cell»20 

90  Test_temo-300 

95  X_axis$-"Time,  minutes" 

100  Y_axis$-"Load,  kN" 


30 
35 
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105 
1  10 
I  15 
120 
125 
130 
135 

I  40 
145 
150 
151 
153 
154 
155 
155 
157 
180 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
218 
220 
225 
230 
235 
240 
245 
250 
255 
250 
ZSS 
270 
275 
280 
285 
290 
295 
300 
301 
310 
312 
320 
325 
330 


Te_co-1  "TENSION  ONLY  TEST 

Extensometer$-"Off" 

Ex_convert" 1 

Ex_inter--0 

Exp_con-1 

Exp_int-0 

ExolotO-0 

Lxplo  tna*-i!0 

Utdo-0 

Thick=0 

Zzz-01 

Xx-0! 

01d_axes-2! 

! 

GOSUB  Show_sat_uo 


TELLS  WHAT  THE  MAX  STRESS/STRAIN  IS  FOR  AXES 
THIS  IS  FOR  THE  X ,Y  AXIS  LABELS  FOR  TRUE/ENGR 

2  MEANS  CREATE  AXES  FOR  A  NEW  PLOT 

3  MEANS  YOU  WANT  TO  SUPERIMPOSE  SEVERAL  PLOTS 


MAIN  MENU 


Main_nenu:   I 
BEEP  2000  ,.1 
OFF  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 


LABEL  "Chanqe  Set-uo"  GOTO  Set_uo_menu! 

LABEL  "Show  Set-uo"  GOTO  Show_set_uD_q! 

LABEL  "Change  Data"  GOTO  Chanqe_datai 

LABEL  "QUIT"  GOTO  StooDer-i 

LABEL  "Store  Data"  GOTO  Store_data! 

LABEL  "Plot  Data"  GOTO  Plot_data! 

"Recall  Old  Data"  GOTO  R«call_datal 

"RUN/  REDUCE"  GOTO  Set  uo  ok! 


LABEL 


LINE  3050 
LINE  ? 
LINE  315 
LINE  2595 
LINE  1870 
LINE  2380 
LINE  1520 


'NEED 
'DATA 


ON  KEY  8  LABEL 
IF  (Y_axl3$-"Load 

ON  KEY  7  LABEL 

ON  KEY  8  LABEL 

BEEP  2000,. 1 

BEEP  2500,. I 
END  IF 
IF  (SamDle_area-0  OR  Gauqe-0 )  THEN 


kN"  OR  Y  axisS-'Stress ,  MPa" )  AND  Fs  load  celL-0  THEN 


LOADCELL"  GOTO  Load_cell 
NEEDED"  GOTO  Main  menu 


ON  KEY  3  LABEL 
ON  KEY  8  LABEL 
BEEP  2000,. 1 
BEEP  2500,.  1 

END  IF 

IF  Sawole  nr9""" 


"NEED  SA.DIMEN. ' 
"DATA    NEEDED' 


THEN 


ON  KEY  4  LABEL  "  IOENTIFYSAMPLE" 
ON  KEY  8  LABEL  "DATA    NEEDED' 


GOTO  S_area_l 
GOTO  Main  nenu 


GOTO  Samole_ld_m 
GOTO  Main  nenu 


BEEP  2000,.! 
BEEP  2500,. 1 
END  IF 

KEY  LABELS  ON 
Main_nenu_idle:GOTO  Main_menu_idla 
Chanqe_data:     I ••••••••••»»••»••••••••• 

OFF  KEY 

ON  KEY  1  LABEL  "ADD  10X"  GOTO  C_d_add10l 

ON  KEY  2  LABEL  "ADD  50X"  GOTO  C  d  addS0 


CHANGE  DATA 


SSSSSSS  CHANGE  LATER 
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335 
340 
345 
350 
355 
360 
3G5 
370 
375 
300 

3flS 

390 
395 
400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
4G0 
465 
470 
475 
480 
485 
490 
495 
500 
505 
510 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
575 
580 
585 


ON  KEY  3  LABEL  "SUB.  10%'  GOTO  C_d_sub10 

ON  KEY  4  LABEL  "SUB.  50X"  GOTO  C_d_sub50 

ON  KEY  5  LABEL  "MULTIPLYBY  0.1  "  GOTO  C_d_mulo1 

ON  KEY  6  LABEL  "MULTIPLYBY  2  "  GOTO  C_d_mul2 

ON  KEY  7  LABEL  "MULTIPLYBY  10"  GOTO  C_d_mul10 

ON  KEY  8  LABEL  "Convert  Units"  GOTO  Conv_units 

KEY  LABELS  ON 

C_d_§pin:GOTO  C_d_spin 

C_d_add10:C_d_nult-l  .1 
GOTO  C_d 

C  H  uddSOsC  d  nult-1.5 
GOTO  C_d 

C_d_aub!0:C_d_nult-.9 
GOTO  C_d 

C_d_sub50:C_d_nult-.S 
GOTO  C_d 

C_d_mulpl  :C_d_eiult-.  1 
GOTO  C_d 

C_djiul2:C_d_mult-2 
SOTO  C_d 

C_d_nul5:C_d_nult-5 
GOTO  C_d 

C_d_mul10:C_d_nult-l0 

C_dJ !»**«••••»*•••••»»**•*•«•*•••  C_D   ...»»..»*»»..».. 
OFF  KEY 
FOR  Q-l  TO  2 

ON  KEY  Q  LABEL  "CHANGE   X-UALUES"  GOTO  C_d_chq_xl 
ON  KEY  Q+2  LABEL  "CHANGE   Y-UALUES"  GOTO  C_d_chq_Y! 
ON  KEY  Q+4  LABEL  "CHANGE   AREAS"  GOTO  C_d_chq_zi 
NEXT  Q 
KEY  LABELS  ON 

C_d_ldlo:GOTO  C_d_idle 

C_d_chq_:<  :CALL    ChanqeH  Glraln(  »  )  ,C  _d    mu  1 1  ) 
GOTO   Main_nenu 

C_d_chq_y:CALL    ChanqeH  S tress<  »  )  ,C_d_mult  ) 
GOTO    Main_nenu 

C_d_chq_z:CALL   Chanqer( Area_i(  »  )  ,C_d_nult  ) 

GOTO  Main_nenu!»« ...»...»♦.♦.... CONVJUN] 

Conv_units:   !  Converts  x-axis  units  from  current  units  t- 
INPUT  "Specify  code  to  use  conversion  sect  ion"  ,WhichS 
IF  Which»O"C0DE"  AND  Uhich«<> "Cod«"  AND  Uhich«<> 'coda" 
ON  KEY  I  LABEL  "Conv.  toLoad-t"  GOTO  Load_time 
ON  KEY  2  LABEL  "Conv.  toLoad-exf  GOTO  Load.ext 
ON  KEY  3  LABEL  "Conv.  toLoad-X"  GOTO  Load_pct 
ON  KEY  4  LABEL  "Conv.  toLoad-stn"  GOTO  Load_strain 
ON  KEY  5  LABEL  "Conv.  toStrs-X"  60T0  Stress_pct 
ON  KEY  6  LABEL  "Conv.  toStrs-exf  GOTO  Stress_ext 
ON  KEY  7  LABEL  "Conv.  toStrs-stn"  GOTO  Stress_strain 
ON  KEY  8  LABEL  "Conv.  toTrue  S-s"  GOTO  True_true 
KEY  LABELS  ON 

Conv  units  ldle:GOTO  Conv  units  idle 


LINE  495 
LINE  505 
LINE  515 


in  ,    load  ,    etc 
Main  _pienu 
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G'JO  Load_Unai  I 

595  GOSUB  ConvJineJ 

G00  GOSUB   Conv_load_l 

G05  GOTO   Main_menu 

610  Load_ext:       ! 

GI5  GOSUB  Conv_load_l 

620  GOSUB  Conv.extJ 

G2S  GOTO  Main_menu 

G30  Loidjictil 

nin  oniun  Ri»iiv_ti)«iL  I 

S40  GOSUQ  ConvjetJ 

G45  GOTO  Maln_menu 

G50  Load_strain: ! 

G55  GOSUB  Conv_load_l 

GG0  GOSUB  Conv_strain_l 

GG5  GOTO  Main_menu 

G70  Stressjpct : ! 

G75  GOSUB  Conv_stress_l 

G80  GOSUB  ConvjpctJ 

G85  GOTO  Maln_menu 

690  Stress_ext :  ! 

G95  GOSUB  Conv_stress_1 

700  GOSUB  Conv_ext_l 

705  GOTO  Main_menu 

710  Stress_strain:  ! 

715  GOSUB  Conv_stress_l 

720  GOSUB  Conv_strain_l 

725  GOTO  Main_menu 

730  True_true:  ! 

735  PRINT  "Not  written  yet" 

740  BEEP  200,. 5 

745  UAIT  I 

750  GOTO  Main_menu 

755  Conv_ext_l:l  Converts  x-data  to  extension  in  mm 

7G0  KEY  LABELS  OFF 

7G5  IF  X_axis«-"Elonqation  ,  mm"  THEN  GOTO  Conv_ext. 

770  I_conv_x-I 

775  IF  X_axis$-"Time,  minutes"  THEN 

780  X_axisS-"Elongation ,  mm" 

785  I_conv_x»Str_rate 

790  END~IF 

795  IF  X_axlsS-"Time,  seconds"  THEN 

800  X_axis$-"Elongation,  mm" 

805  I_conv_x-Str_rate/G0 

810  ENO  IF 

815  IF  X_axis$-"Elongation,  Percent"  THEN 

820  X_axis$-"Elongat ion ,  mm" 

825  I_conv_x-.01 'Gauge 

830  END  IF 

835  IF  X_axiB«-"Str«in"  THEN 

840  X_axis$""Elongat ion  ,  mm" 
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845  I_conv_x-Gauqe 

950  ENO  IF 

855  IF  I_conv_x-l  THEN  GOSUB  Con_err 

BG0  GOSUB  Conv_x 

8G5  Conv_ext_2: RETURN 

870  Conv_straln_l : I  Converts  x-data  to  strain 

875  GOSUB  Conv_pct_1 

880  l_conv_x-.0t 

885  X_axls$«"Strain ,  mm/mm" 

890  60SUB  Conv_x 

895  RETURN 

900  Conv_nct_l : I  Converts  x-data  to  pet  strain 

905  KEY  LABELS  OFF 

910  IF  X_axis$-"Elonqation,  Percent"  THEN  GOTO  Conv_pct_2 

915  I_conv_x-l 

920  IF  X_axisS-"Time,  minutes"  THEN 

925  X_axis$-"Elonqat ion  ,  Percent" 

930  I_conv_x«100*Str_rate/Gauqe 

935  ENO  IF 

940  IF  X_axis$-"Time,  seconds"  THEN 

945  X_axis*""Elonqat ion  ,  Percent" 

950  I_conv_x-I00»( Str_rate/G0  )/Gauqe 

955  ENO  IF 

OG0  IF  X_axls'.B--Elonqat ion  ,  rrn"  THEN 

9G5  X_axis$""Elonqat ion ,  Percent" 

970  I_conv_x-100/Gauqe 

975  END  IF 

980  IF  X_axls$-"Strain"  THEN 

985  X_axis$="Elonqat ion ,  Percent" 

990  I_conv_x-I00 

995  ENO  IF 

1000  IF  I_eonv_x-l  THEN  GOSUB  Con_err 

1005  GOSUB  Conv_:< 

1010  Conv_pct_2:RETURN 

1015  Con _time_l:l  Converts  x-data  to  tine  in  minutes 

1020  KE   LABELS  OFF 

1025  IF  X_axis$«"Time ,  minutes"  THEN  GOTO  Conv_time_2 

1030  I_conv_x»l 

1035  IF  X_axis$-"Time ,  seconds"  THEN 

1040  X_axisS-"Time ,  minutes" 

1045  I_conv_x-i/G0 

1050  END  IF 

1055  IF  X_axist-"Elonqatlon,  mm"  THEN 

10G0  X_axis$-"Time,  minutes" 

1065  I_conv_x-l/Str_rate 

1070  ENO  IF 

1075  IF  X_axisS-*Elonqatlon,  Percent"  THEN 

1080  X_axls$-"Time ,  minutes" 

1085  I_conv_x-(  1  /Str_rate  )•  .01  »Gauqe 

1090  ENO  IF 

1095  IF  X  axisS-"Straln"  THEN 
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1 1  00    X_axlsS-"Ttwe  ,  Minutes" 

1105     I_conv_x-< ! /Str_rate )»Gauqe 

1110   END  IF 

IMG      IT    I_conv_>:-l    THEN   G05UD    Con_orr 

I  120   GOSUB  Conv_x 

1125  Conv_tii«ie_2:  RETURN 

I  130  Conv_stress_1 : ! 

1 135   GOSUB  Conv_load_1 

1140   IF  Sample_area«0  THEN  GOSUB  S_area 

1145   I_conv_y« I 000/Samp le_area 

1150   Y_axisS-"Stress,  MPa" 

I  155   G0SU8  Conv_Y 

1160  RETURN 

I  155  ConvJoadJ  :  I 

1170   IT  Y_axl«*-"Lond,  kNM  THEN  Conv_lo«d_2 

I  175   I_conv_y-l 

1180   IF  Y_axis$-"Uolts  DC"  THEN 

1 185    Y_axisS-"Load,  kN" 

1190     IF  Fs_load_cell-0  THEN  INPUT  "Full-scale  value  of  load  cell',  kN"  ,Fs_loa 

d_cell 

1195     I_conv_y-Fs_load_cell/10 

1200   END  IF 

1205   IF  Y_«xiil«"IHlHv8Hl  DC"  THEN 

1210    Y_axisS-"Load,  kN" 

1215    IF  Fs_load_cell-0  THEN  INPUT  "Full-scale  value  of  load  cell?,  kN" ,Fs_loa 

d_cell 

1220    I_conv_Y»Fs_load_cell/l0000 

1225  END  IF 

1230   IF  Y_axisS-"Stress ,  MPa"  THEN 

1235    Y_axis$="Load,  kN" 

1240     IF  Samole_area-0  THEN  GOSUB  S_area 

1245     I_conv_y-Samole_area 

1250   ENO  IF 

1 255   IF  I_eonv_y-l  THEN  GOSUB  Con_err 

12G0   GOSUB  Conv_y 

1265  Conv_load_2:RETURN 

1270  Conv_:<:  I 

1275  FOR  1-0  TO  5000 

1280    Strain?  I  )-Straln<  I  >M_conv_x 

1285   NEXT  I 

1290   RETURN 

1295  Conv_y:  1 

1300   FOR  1-0  TO  5000 

1305    Stress< I  )-Stress< I )»I_conv_y 

1310   NEXT  I 

1315  RETURN 

1320  Con_err: I 

1325   DEEP  200,. 5 

1330  PRINTER  IS  1 

1335   PRINT  "»«»»»CAUTION»»*»»No  conversion" 

1340   UAIT  3 
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1345   RETURN 

1350  Load_tlme_2:  I 

1355   IF  Y_axia$-"Load,  kN"  THEN  Load_time_3 

1360   I_oonv_Y™' 

I3G5  IF  Y_axls$-"v'olts  DC"  THEN 

1370    Y_axiaS-"Load,  kN" 

1375    IT  Fa_lofld_call-0  THEN  INPUT  "Full-scale  value  of  load  cell?,  kN"  ,Fa  loa 

d_cell 

1380     I_conv_Y-Fs_load_cell/10 

1385   ENO  IF 

1390   IF  Y_axia$-"Millivolts  DC"  THEN 

1395    Y_axis$«"Load,  kN" 

1400     IF  Fs_load_cell-0  THEN  INPUT  "Full-scale  value  of  load  cell?,  kN"  ,Fs_loa 

d_cell 

1405     I_eonv_Y-Fa_load_cell/10000 

1410   END  IF 

1415   IF  Y_axisS-"Streso,  MPa"  THEN 

1420     Y_axiaS-"Load,  kN" 

U25    IF  Samole_area-0  THEN  GOSUB  S_area 

1430     I_conv_y-Samole_area 

1435   END  IF 

1440   IF  I_conv_y-l  THEN  GOSUB  Con_err 

1445   GOSUB  Conv_Y 

1450  Load_time_3:RETURN 

1455  Sanole_id_a:  ! »•»•.»•••••**#•»•••••   SAMPLE_ID_S  ••» » 

1450   ON  KEY  I  LABEL  " Ident i fYSample"  GOTO  S«mple_id_s_2 

I4G5  ON  KEY  2  LABEL  * Ident ifySanole"  GOTO  Samole_ld_s_2 

1470   ON  KEY  3  LABEL  "Chanqo   Temp"  GOTO  Chq_test_temo 

M7G   ON  KEY  4  LADCl.  "Ch«nq«   T«mo"  GOTO  Chqjes  t  _temo 

1480  FOR  0-5  TO  8 

1485    ON  KEY  Q  LABEL  "Chanqo   Oimen's"  GOTO  S_area_2 

1490   NEXT  Q 

1495  Samole_id_3oin:G0T0  Sample_ld_soin 

1500  Chq_test_temp: l 

1505   Uar-Test_temo 

1510   GOSUB  Uar_chanqe 

1515   Teat _temo«Uar 

1520  GOTO  Set_up_menu 

1525  Sanole_ld_s_2:    I 

1530      GOSUB    SampTe.id 

1535  GOTO  Set_uo_menu 

1540  Sample_ld_m:  I 

1545  GOSUB  Sample_id 

1550   GOTO  Main_nenu 

1555  Sa(nple_ld:  ! 

I5S0  KEY  LABELS  OFF 

1SB5   INPUT  "Identify  sample  50  characters  max"  ,Sample_nr$ 

1570   RETURN 

1575  S_area_1  !  I 

1580  GOSUB  S_area 

1585   GOTO  Main  menu 
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1590  S_area_2:  I 

1595  GOSUB  S_area 

1600  GOTO  Set_up_menu 

IG05  Show_set_uD_q:  I 

1610  GOSUB  Shoy_3et_uo 

IB  15  60T0  f1ain_menu 

IG20  Recall_data: I •«•*«»*«»»#*»*»  RECALL_DATA  »»»»*»»**»»»»*»*» 

IG25  GOSUB  Ra_data 

IS2S  GOSUB  Show  »«t  nn  n 

IGJ0  OUIU  Plot.data 

IG35  n*  Hntfli i «•••••»••*>»•»»•»•«  nr  DATA  •»•« 

IG40  GOSUB  Which  jisu 

IG41  ON  ERROR  GOTO  Inout_err 

1G4-2  INPUT    Tile    to   be   used?   Don't    tyoe   suffix   X  ,Y  ,orZ . "  ,Fi  le_nameS 

1G4-3  XfileS-File_nane$&"B" 

1G44  Yf ile$-File_naneS&"C" 

1G45  ZfileS-Ftle_nameS&"Z" 

1 645  QfileS-File_nane$&"Q" 

1G47  ASSIGN  9Pathl  TO  XfilaS 

1G48  ASSIGN  9Path2 

1G49  ASSIGN  @Path3 

1650  ASSIGN  9Path4 

IG5I !  ON  END  8Path3  G 

1G52  OFF  ERROR 

IG53  ON  ERROR  GOTO 

1G54  ENTER  BPatht 

IG55  OFF  ERROR 

1656  ON  ERROR  GOTO  1659 

1G57  ENTER  9Path2 ;Stress< *  ) 

IG58  OFF  ERROR 

IG59  ON  ERROR  GOTO  1663 

1GG0  E_c=Ex_convert 

1G61  E_i=Ex_inter 

1GG2  ENTER  @Path3 ; Sanole_nr$ ,X_axis$ ,Y_axis$ ,Dia  ,Uide  .Thick , Gauge ,T_start ,T_end 

,l_oad_min  ,l_oad_max  ,Fs_load_cell  ,Te_co,Str_rate  ,Ex  tens  one  ter$  ,E_c  ,E_i  ,Test_temD 

1GG3  OFF  ERROR 

1GG4  ON  ERROR  GOTO  1GS7 

1GG5  ENTER  9Path4lExtens< »  ) 

1G66  OFF  ERROR 

IGB7  ASSIGN  8Path4  TO  • 

1G6B  ASSIGN  8Pathl  TO  » 

IGG9  ASSIGN  8Path2  TO  • 

IG70  ASSIGN  @Path3  TO  ♦ 

1795  RETURN 

1800  Input_err:  !*••»#•• INPUT_ERR  »•» ......♦...# 

1805  PRINTER  IS  I 

1810  IF  ERRN-56  THEN 
1815    PRINTER  IS  701 
1820    CAT 
1825    FOR  0-1  TO  5 
1830      PRINT 


TO  Yf 11 

e« 

TO  Zfil 

a$ 

TO  Of i 1 

e$ 

GOTO  PI 

ot 

IG55 

Strain< • 

) 
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1835 

1840 

1845 

1850 

1855 

i860 

1865 

I  870 

1875 

1880 

1885 

1890 

1891 

1892 

1893 

1894 

1895 

1895 

1897 

1090 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

d  ,Loa 

1910 

191  I 

1912 

1913 

1914 

1915 

1916 

1917 

2030 

2035 

2040 

2045 

2050 

2055 

2050 

2065 

2070 

2075 

2080 


NEXT  Q 
PRINTER  IS  1 
END  IF 

PRINT  USING  "&,«" 
BEEP 

PRINT  ERRM« 
GOTO  Recall_data 

Stora^datail STORE ..OATA  ••••••»••! 

GOSUB  Uhlch  nmi 
ON  ERROR  GOTO  Store_nrr 

INPUT  Tllo  to  be  ufloH?  Don'l  lyon  sufflA  0  ,C  ,orZ  .  "  J  t  1  o_nnne'B 
Xflle$-Flle_nanaJ&"B" 
Yf lle$-Flle_nane$&"C" 
Zfile$»File_name$&"Z" 
Qf ile$=File_nameS&"Q" 
ASSIGN  9Path1  TO  XfileS 
ASSIGN  9Path2  TO  YflieS 
ASSIGN  9Path3  TO  ZfileS 
ASSIGN  9Path4  TO  QflleS 
ON  END  ®Path4  GOTO  Maln_nenu 
OFF  ERROR 

ON  ERROR  GOTO  1902 
OUTPUT  SPathl ;Strain(») 
OFF  ERROR 

ON  ERROR  GOTO  1905 
OUTPUT  9Path2;Stress< •  ) 
OFF  ERROR 

ON  ERROR  SOTO  1910 
E  _c  =Ex  _c  onver  t 
E_i-Ex_inter 

OUTPUT  ePath3;Samole_nr$ ,X_axts$ ,Y_ax 1 sS ,D la , Wide .Thick .Gauqe ,T_start  ,T_en 
djnin  ,Load_max  ,Fs_load_cell  ,Te_co  ,Str_rate  .ExtensometerS  ,E_c  ,E_i  ,Test_temD 
OFF  ERROR 

ON  ERROR  GOTO  1914 
OUTPUT  @Path4;Extens< •  ) 
OFF  ERROR 

ASSIGN  @Path4  TO  • 
ASSIGN  GPathl  TO  • 
ASSIGN  9Path2  TO  • 
ASSIGN  @Path3  TO  ♦ 
MASS  STORAGE  IS  " :CS80  ,700  ,1 " 
GOTO  Maln_nenu 

Store.err:  ! • ST0RE_ERR • 

PRINTER  IS  I 
IF  ERRN-5S  THEN 

OFF  ERROR 

PRINT  "File  not  found.  Below  Is  a  list  of  current  files." 

CAT 

FOR  Q-1  TO  S 
PRINT 

NEXT  Q 
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2085  PRINT  "Uould  you  Ilka  to  create  a  new  file?" 

2090  GOSUB  Yes_no 

2095  IF  Answer$-"Y"  THEN 

2100  PRINT  "Insert  data  disk" 

2105  BEEP 

2110  INPUT  "File  nana?"  ,File_nameS 

21  15  Neu_file:      ! 

2120  ON  ERROR  GOTO  Dlsk_full 

2125  PRINT  "Creatinq  nnu  f 1 1  os " 

2130  CHLA  III  UUM  rile_nane«&"0"  ,0  ,'J000 

2135  CREATE  BOAT  Fi  le_nane«"C"  .8  ,5000 

2140  CREATE  BDAT  File_name$&"Z" , I ,5000 

2145  CREATE  BOAT  Fi le_name$&"Q" , 1 ,5000 

2150  OFF  ERROR 

2155  ELSE 

21G0  GOTO  Store_data 

2165  END  IF 

2170  ELSE 

2175  PRINT  ERRMS 

2100  OFF  ERROR 

2185  PRINT  "Do  you  want  to  try  again?" 

2190  GOSUB  Yes_no 

2195  IF  Answer$="Y"  THEN  Store_data 

2200  GOTO  Mainjnenu 

2205  END  IF 

2210  PRINT  USING  "9,*" 

2215  BEEP 

2220  GOTO  Store_data 

2225  Olsk_full:  ' » 0I3K_FULL  

2230  OFF  ERROR 

2235  PRINT  "This  disk  Is  full.  Do  you  want  to  reolace  It  ulth  a  new  disk?" 

2240  GOSUB  Yes_no 

2245  IF  Answer$-"N"  THEN  Store_data 

2250  GOTO  New_file 

2255  Print_data:  ! » PRINT_DATA  »*»» • 

22G0  PRINTER  IS  701 

22G5  GOSUB  Show_set_uo_2 

2270  PRINTER  IS  1 

2275  GOTO  Mainjnenu 

2280  Plot.data:  !#>##• # PLOT.OATA  ••♦•• 

2281  IF  01d_axes-3  THEN  GOSUB  Plot_data_2!       TO  MAKE  A  SUPERIMPOSED  PLOT 

2282  IF  Xx-2  THEN 

2283  X_axis$-"Engineerlng  Strain" 

2284  Y_axis$-"Engineerlng  Stress,  MPa" 

2285  END  IF 

228G  IF  Xx-3  THEN 

2287  X_axis$-"True  Strain" 

2288  Y_axls$-"True  Stress,  MPa" 

2289  END  IF 

2290  GOSUB  Plot.t.t.up 

2291  L_type-0 
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2292  Next_curve:  ! 

2293  L_tYoe-L_type+l 

2294  LINE  TYPE  L_type 

2295  OFF  KEY 

229G   ON  KEY  I  LABEL  "Cont inuePlot "  GOTO  Plot_data_2 

2297  ON  KEY  2  LABEL  "CHANGE   MAINAXES"  GOTO  Plot_axes 

2298  ION  KEY  3  LABEL  "CHANGE   SUB-AXES"  GOTO  Sub_axes 

2299  ON  KEY  3  LABEL  "  '  GOTO  Sub_axes 

2300  ON  KEY  4  LABEL  "NEW     PLOT"  GOTO  Malnjnenu 

2301  ON  KEY  5  LABEL  "Main    Menu"  GOTO  Main_nanu 

2302  ON  KEY  6  LABEL  "Print    Data"  GOTO  Prlnt_data 

2303  IF  Extan9ometer*-"ON"  THEN 

2304  ON  KEY  7  LABEL  "LOAD-   TIME"  GOTO  Plot_data_2 

2305  ELSE 

230G    ON  KEY  7  LA8EL  "Stress-  Strain"  GOTO  Stress_strain 

2307  END  IF 

2308  ON  KEY  8  LABEL  "REDUCE   DATA"  GOTO  Oata_red_menu 

2309  KEY  LABELS  ON 

2310  IF  Xx-3  THEN  PRINT  "TRUE  STRESS  ( MAX )-" i Strassjiax i "  TRUE  STRAIN  <MAX>- 
lStrain_nax 

231!     IF  Xx-2  THEN  PRINT  "ENGR  STRESS  ( MAX  )-" ; Stressjnax s  "  ENGR  STRAIN  (MAX)- 
I  Strain  jnax 

2313  Plot_data_ldle:GOTO  Plot _data_ldle 

2314  Plot_axes:  I • PLOT_AXES 

2315  GOSUB  Axes_u 
23IB   GOSUB  Start_t 

2317  GOSUB  Plot_set_uo 

2318  GOTO  Plot_data_2 

2319  Sub_axes:  ! ••••••   SUB_AXES • 

2320  GOSUB  Exjjlt_cnv 

2321  GOSUB  Plot_set_uo 

2322  GOTO  Plot_data_2 

2323  Plot_data_3:  ! PL0T_DATA_3  

2324  KEY  LABELS  OFF 

2325  IF  AnsuerS-"Y"  THEN  GOSUB  Pen_select 
232G   FOR  1=1  TO  5000 

2327  Explot=Extens< I )»Exp_con+Exo_int 

2328  IF  1-1  OR  Explot-T_start  THEN  MOUE  Explot  ,Stress( I  ) 

2329  IF  Exolot<T_start  OR  Exolot>T_end  THEN  Endjplot_3 

2330  PLOT  Explot  ,Stress<  I) 

2331  End_plot_3:  I 

2332  NEXT  I 

2333  IF  AnsuerS-'Y"  THEN  PEN  0 

2334  GOTO  Next_curve 

2335  Re_data_l  :  I RE_DATA_1  

233B  60SUB  Re_data 

2337  Plot_data_2:  I PL0T_DATA_2  

2338  IF  Uhich_pltr$-"Plotter"  THEN  GOSUB  Pon_select 
2340  KEY  LABELS  OFF 

2342  FOR  1-1  TO  5000 

2343  IF  I-N_points  THEN  GOTO  Next_curve 
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234S  IF    I-l    OR   Strain* I  )-T_start    THEN  MOVE  Strain*  I  )  .Stress*  T ) 

2347  IT    Strain*  I  XT.atart     THEN    End.curva 

2340  IT   Strain   «tiqr(t)<r   *»«rl    TIIFN  Purl  nurvp 

2J4'J  II     lo_co-l    AND   <Str»afl< I )>Lond _max   OR   Stre88(  I  KLoadjnln )   1IICN  GOTO   Entl 

curvn 

2350  IF  Te_co-3  AND  ( Stress*  I  XLoadjnax  OR  Stress* I  )>Load_mln  )  THEN  GOTO  End. 
curve 

2351  IF  Strain* I )>T_end  OR  Strain_enqr(  I )>T_end  THEN 

2352  1-5000 

2353  GOTO  End_curve 

2354  END  IF 

2355  IF  I>N_points  AND  Strain* I )-0  THEN 
235G    GOTO  Next_curve 

2357    END  IF 

2359     IF  Xx-0  OR  Xx-3  THEN  PLOT  Strain* I  )  .Stress* I  ) 

23G0     IF  Xx-2  THEN  PLOT  Strain_engr(  I ) ,Stres3_engr< I ) 

23G I  End_curve:    ! 

23G2   NEXT  I 

23G3   IF  AnswerS-"Y"  THEN  PEN  0 

23G4  GOTO  Next_curve 

2365  Show_set_uoJ  :  ! SHOU_SET_UP_l 

235S   GOSUB  Show_i«t_up 
23G7  GOTO  Main_menu_idle 

2368  StooDartl STOPPER 

23G9   PRINTER  IS  I 

2370  KEY  LABELS  OFF 

2371  PRINT  "Do  you  want  use  this  orogram  again?" 

2372  GOSUB  Yes_no 

2373  IF  Answer$="N"  THEN  LOAD  "MSLABS" 

2374  IF  Answer$-"Y"  THEN  GOTO  Starter 
237G   STOP 

2377  Load_cell:  I LOAD_CELL  »*• » 

2378  KEY  LABELS  OFF 

2379  INPUT  "What  is  the  full-scale  load  value  in  kN?"  ,Fs_load_cel  1 

2380  GOTO  Main_menu 
2301  S_ar*a:  I 

2382  OFF  KEY 

2383  FOR  Q-l  TO  4 

2384  ON  KEY  Q  LABEL  "round    samole"  GOTO  Round 

2385  ON  KEY  Q+4  LABEL  "rect.    samole"  GOTO  Rect 
238G  NEXT  Q 

2387  KEY  LABELS  ON 

2388  S_area_idle:GOTO  S_area_idle 

2389  Round: I 

2390  KEY  LABELS  OFF 

2391  INPUT  "Sample  diameter,  mm?"  ,0la 
2332   Sample_area-*PI/4 )»<Dla*2) 

2393  GOTO  G_length 

2394  Rect:  I 

2395  KEY  LABELS  OFF 

239G   INPUT  "Samole  width,  mm?"  , Wide 
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INPUT  "Sample  thickness,  mm7"  , Thick 
Sample_area-Uide*Thick 
G_lenqth:  I 
PRINT  "Default  qauqe  lenqth  is  ",Gauqe»"  iw.  Hit  <RETURN>  to  accept' 
INPUT  "Gauqe  lenqth,  mm?"  , Gauqe 
RETURN 

Gliow_iot_upt  I  •••••• •••••  '5H0U  T.fTTJJP  •.•••••».•••■••••...■•.. 

PRINTER  IS  I 

Show_set_uo_2:  !»••.».. SH0U_SET_UP_2  »• • 

PRINT  USING  "9,*" 

PRINT  "Current  set  up  is  as  follows:" 

PRINT  "    Sample  Parameters:" 

IF  Sample_nrS-""  THEN 

PRINT  " 
ELSE 

PRINT  " 
END  IP 

0  THEN 

Gauqe  lenqth  is  "iGauqe;"  mm' 


2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

240G 

2407 

2408 

2409 

2410 

241  I 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

242S 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

243G 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

"  K" 

244G   PRINT 


Sample  unnamed" 
Sample:  ";Sample_nr$ 


No  qauqe  lenqth  specified' 


IF  Gauqe 

PRINT 
ELSE 

PRINT 
ENO  IF 

IF  Dia<>0  THEN  Sample_area-(PI/4 )»(  Dia*2 ) 
IF  Thick<>0  AND  Uide<>0  THEN  Sample_area-Wide»Thick 
IF  Samole_area<>0  THEN 

IF  Oia<>0  THEN 
PRINT 

ELSE 
PRINT 

END  IF 

PRINT  "      Sample  area  is  " sSample_area ; "  mm 
ELSE 

PRINT 
END  IF 
PRINT 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 


Usinq  round  sample  with  a  diameter  of 
Uslnq  flat  sample  "sUldei"  mm  wide  X 


Sample  dimensions  are  incomplete" 


"  iOla;  "  mm" 
"; Thick ; "mm  thick" 


Testinq  Parameters:" 

Crosshead  speed" ;Str_r3te; "  mm/min" 
Full-scale  ranqe  of  load  cell  is  set  for 
Hold  time  at  finish  " iHold_t imet "  min" 
IF  Te_co-l  THEN  PRINT  "      Tension  only  test" 
IF  Te_co-2  THEN  PRINT  "     Tension/compression  test" 
IF  Te_co-3  THEN  PRINT  "     Compression  only  test" 
PRINT  "       Extensometer/Strain  Gaqe  is  " ;Extensometer$ 
IF  Extensometer$-"On"  THEN 


iFs_load_cell;"kN- 


PRINT 

PRINT 

PRINT 

ENO  IF 

PRINT  * 


Extensometer/Strain  qaqe  conversion  factor  is  ";Ex_convert 
Extenaometer/Strain  qaqe  intercept  is  ";Ex_inter 
Strain  shown  will  be  from  *iExplot0i"  to  "sExplotmax 

Test  temperature  is  " |Test_lemp  i "  deq  C  or  " iTest _temp  +  273. 1 G i 
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2447  PRINT  *    Plot t inq  Parameters : " 

2448  IF  X_axis$-"Time,  minutes"  THEN  PRINT  "      Start  tine  ";T_start;"  mm    F 
inish  time  ";T_end;"  min" 

2449  IF  X_axisS-"Time,  seconds"  THEN  PRINT  "      Start  time  ";T_starti*  sec    F 
inish  time  "sT_endi"  sec" 

2450  IF  X_axls$-"Elonqatlon ,  mm"  THEN  PRINT  "      Startlnq  Elonqation  " ,T_start 
t"  mm     Finish  Elongation  "|T_end|"  mm" 

2451  IF  X _axlsJ-"Elonqatton ,  Percent"  THEN  PRINT  "      Starting  Elongation  "  ,T 
atar-ti"  X    Finish  Elonqation  "|T_endi"  X" 

2452  IF  X_axis*-"Strain"  OR  Xx-2  OR  Xx-3  THEN  PRINT  "      Startlnq  strain  "  ,T_s 
tarti"  Finish  strain  " ; T_end 

2453  IF  Y_axis$-"Uolts  OC"  THEN  PRINT  "      Y-axis  minimum  is  " ;Load_min ; "  volt 
s   and  Y-axis  maximum  is  ";Load_max;"  volts" 

2454  IF  Y_axis$-"Milllvolts  DC"  THEN  PRINT  "      Y-axis  minimum  is  ";Load_mln;" 
millivolts   and  Y-axis  maximum  Is  " ;Load_max ; "  millivolts" 

2455  IF  Y_axiaS-"Load,  kN"  THEN  PRINT  "      Load  ranges  from  ".Load.mlni"  kN  to 
"  iloa.d_maxi "  kN  (neq  means  compression)" 

245G   IF  Y_axis$-"Stress ,  MPa"  OR  Xx-2  OR  Xx-3  THEN 

2457  PRINT  "      Stress  ranqes  from  ",Load_min;"  MPa  to  ";Load_maxi"  MPa" 

2458  PRINT  "      (neq  means  compression )" 

2459  END  IF 

2460  RETURN 

2461  Set_uD_menu:  ! 
24G2   BEEP  2000  ,.2 
2463  BEEP  2100  ,.2 
2454   OFF  KEY 

2465   GOSUB  Show_set_up 

24GS  ON  KEY  1  LABEL  "Sample  Params"  GOTO  Sample_id_s 
2467  ON  KEY  2  LABEL  "Sample  Params"  GOTO  Sample_id_s 
24G8   ON  KEY  3  LABEL  "Test     Params"  GOTO  Test_parans 

2469  ON  KEY  4  LABEL  "Test     Params"  GOTO  Test_params 

2470  ON  KEY  5  LABEL  "Plott inqParams"  GOTO  Axes_units 

2471  ON  KEY  6  LABEL  "Plott inqParams "  GOTO  Axes_units 

2472  ON  KEY  7  LABEL  ""  GOTO  Set_up_idle 

2473  ON  KEY  8  LABEL  "SETUP    OK"  GOTO  Main_menu 

2474  IF  Sample_nrS-""  THEN  ON  KEY  8  LABEL  " IDENTIFYSAMPLE"  GOTO  Samole_id_s 

2475  (SEE  LINE  2455  • • • • •••• 

247S   IF  <Y_axls«-"Load,  kN"  OR  Y_axis*-"Stre»i ,  MPe"  OR  Xx-2  OR  Xx-3)  AND  Fs_lo 
ad_cell-0  THEN 

2477  ON  KEY  8  LABEL  "NEED    LOADCELL"  GOTO  Load_call 

2478  BEEP  2000  ,. I 

2479  END  IF 

2480  IF  ( (Y_axis$-"Stress,  MPa"  OR  Xx-2  OR  Xx-3)  AND  Samole_area-0 )  OR  (X_axieS 
-"Elonqation,  X"  OR  X_axis$-"Strain*  OR  Xx-2  OR  Xx-3  AND  6auqe-0 )  THEN 

2481  ON  KEY  8  LABEL  "SAMPLE  DIMEN."  GOTO  S_area_2 

2482  END  IF 

2483  IF  (X_axisS-"Elonqation ,  mm"  OR  X_axis$-"Elonqat ion ,  X"  OR  X_axis$-"Strain 
"  OR  Xx-2  OR  Xx-3)  AND  Str_rate-0  THEN 

2484  ON  KEY  7  LABEL  "X-head   Speed"  GOTO  Rates 

2485  ON  KEY  8  LABEL  ""  GOTO  Rates 
248G  END  IF 
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24G7  KEY  LAnPLS  ON 

2488  Sot_up_ldle:GOTO  Sat_up_ldlo 

2489  Test"jparams:  l»»»»»»» TEST_PARAM< 

2490  ON  KEY  I  LABEL  "Change   X-head  V"  GOTO  Rates 

2491  ON  KEY  2  LABEL  "Change   Load  Cell"  GOTO  Load_cell 

2492  ON  KEY  3  LABEL  "Tension/Compression"  GOTO  Ten_com 

2493  ON  KEY  4  LABEL  "Hold    Tine"  GOTO  Holds 

2494  ON  KEY  5  LABEL  "Extens.  Toggle"  GOTO  ExtoggleJ 

2495  FOR  Q-6  TO  8 

2496  ON  KEY  Q  LABEL  ""  GOTO  Test_par_3pin 

2497  NEXT   Q 

2498  Test _par_spin:G0T0   TeBt_par_spin 

2499  ExtoggleJ  :    ! 

2500  GOSUB   Ex_toggle 
"501  GOSUB   Ex_cnv 
.302  GOSUB   Exjplt_cnv 

2503  GOTO   Set_up_menu 

2504  G_l_set_up:     ! 

2505  Var-Gauge 

2506  PRINT  "Chanqinq  q«uq«  lanqth" 

2507  GOSUB  Var_chanqe 

2508  Gauqe-Uar 

2509  GOTO  Set_up_menu 

2510  Start.t:  i 

2511  Uar-T_start 

2512  PRINT  "Chanqing  minimum  x-axis  value:" 

2513  GOSUB  Uar_change 

2514  T_start-Uar 

2515  v"ar«T_end 

251G  PRINT  "Changing  maximum  x-axis  value:" 

2517  GOSUB  Uar_chanqe 

25 1  8  T_end-iJar 

2519  T_ran-T_and-T_start 

2520  Load_vflls :  I 

2521  Uar-Loadjiin 

2522  PRINT  "Chanqing  minimum  y-axis  value:" 

2523  GOSUB  Uar_change 

2524  Load_min"Uar 

2525  Uar-Load_max 

252G  PRINT  "Changing  maximum  y-axis  value:" 

2527  GOSUB  Uar_change 

2528  Load_max"Uar 

2529  Load_ran"Load_nax-Load_min 

2530  RETURN 

2531  Axea_units:  l» AXESJJNITS  ' 

2532  60SUB  Axes_u 

2533  GOSUB  Start_t 

2534  GOTO  Set_up_menu 

2535  Axes_u:  I • AXES_U  

253G  KEY  LABELS  OFF 

2537  OF*  KEY 
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2538 

PRINT  "Select  label  for 

2530 

ON  KEY  1  LAOCL  "Tina 

2540 

ON  KEY  2  LABEL  "Tine 

2541 

ON  KEY  3  LABEL  "Elonq. 

2542 

ON  KEY  4  LABEL  "Elonq. 

2543 

ON  KEY  5  LABEL  "  True 

2544 

ON  KEY  5  LABEL  "  Enqr 

2545 

FOR  Q-7  TO  8 

254B 

ON  KEY  Q  LABEL  ""  GOT 

2547 

NEXT  Q 

2548 

KEY  LABELS  ON 

2549 

Axes. .Iril oi GOTO  Axesjriln 

2550 

Tlme_min: 1 

X-axlB.  Default  la  tine  in  minutes' 
Minutes"  GOTO  Tlme_tnln 
Seconds"  GOTO  Time_sec 
mm"  GOTO  Elonq_mm 
X"  GOTO  Elonqjpct 

Strain"  GOTO  Strain_axis 

Strain"  GOTO  Strain_axis 

)  Axes  idle 


2551  X_axis$""Time ,  minutes" 

2552  GOTO  Set_uD_y_axis 

2553  Time_sec : ! 

2554  X_axis$-"Time ,  seconds" 

2555  GOTO  Set_up_y_axis 
255G  Elonq_mm: ! 

2557  X_axis$-"Elonqat ion ,  mm" 

2558  GOTO  Set  _uo_y_axis 

2559  Elonq_pct: ! 

25G0  X_axlsS-"Elonqat Ion ,  Percent" 
25GI   GOTO  Set_uo_y_axls 

2562  Strain_axis : ! 

2563  X_axis$«"Strain" 

25S4   IF  Xx-2  THEN  X_axis$-"Enqineerinq  Strain"  | 

2565  IF  Xx=3  THEN  X_axis$-"True  Strain"  ; 

2566  Set_uD_y_axis  :  I  J 

2567  OFF  KEY  \ 

2568  PRINT  "Select  label  for  Y-axis.  Default  is  load"  j 

2569  ON  KEY  3  LABEL  "Volts   OC"  GOTO  Volts.y  { 

2570  ON  KEY  5  LABEL  "mV      DC"  GOTO  Mv_y  : 

2571  ON  KEY  1  LABEL  "Load,  N"  GOTO  Load.y  \ 

2572  ON  KEY  2  LABEL  "T  Stress    MPa   "  GOTO  Gtress_y  < 

2573  ON  KEY  3  LABEL  "E  Stress    MPa   "  GOTO  Stress_y  \ 

2574  FOR  0-5  TO  8  \ 

2575  ON  KEY  Q  LABEL  ""  GOTO  Y_ax_idle  \ 

2576  NEXT  Q  j 

2577  KEY  LABELS  ON  \ 

2578  Y_ax_idle:GOTO  Y_ax_ldle  [ 

2579  Volts.y:  I  "• 

2580  Y_axis«-*Uolts  OC*  ! 

2581  RETURN  ,  < 

2582  Mv_y:l  .  ' 

2583  Y_axisS-"Millivolt3  OC" 

2584  RETURN 

2585  Load_y:l 

258B   Y_axis$-"Load,  kN" 

2587  RETURN 

2588  Stress_y: ! 
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2509  IF  Xx-2  THEN  Y_ax lsS-"Enqr  Straus   Ml' a 

2590  IF  Xx-3  THEN  Y_axls$-"True  Stress   MPa 

2591  RETURN 

2592  Rates:  ! 

2593  Var-Str_rate 

2594-  PRINT  "Editinq  crosshead  speed:  qive  value  in  mm/mln' 

2595  GOSUB  Uar.chanqe 

259G  Str_rate-Uar 

2597  GOTO   Set_uojtenu 

ZTiCin  llotdn:     I 

2G3H  nOSUfl  llolHnl 

2600  GOTO  Set_uo_nenu 

2501  Holds):  ! 

2G02  PRINT  "Chanqe  hold  tine?" 

2E03  GOSUB  Yes_no 

2G04  IF  Ansuer$-"Y"  THEN 

2G05  v,ar=Hold_time 

2G06  GOSUB  Uar.chanqe 

2G07  Hold_time-Uar 

2G08  END  IF 

2G09  RETURN 

2GI0  Ex_toqqle:  I 

2611  PRINT  "Toqqle  extensoneter? " 

2GI2  GOSUB  Yes_no 

2G13  IF  AnswerS-nN"  THEN  GOTO  Ex_cnv 

26  U  IF  Extensometer$-"Off "  THEN 

2G  I  5  Extensometer$-"On" 

2GIG  ELSE 

2G17  Extensoneter*-"Of f " 

2GI8  ENO  IF 

2G19  RETURN 

2G20  Ex_cnv:  I 

2621  IF  Extensometer*-"On'  THEN 

2622  PRINT  "Chanqe  conversion  factor?" 

2623  GOSUB  Yes_no 

2624  IF  Answer$-"Y"  THEN 

2625  Uar=Ex_convert 
2625  GOSUB  Uar_chanqe 
2G27  Ex_convert»Uar 

2628  ENO  IF 

2629  PRINT  "Chanqe  interceDt?" 

2630  GOSUB  Yes_no 

2631  IF  nn8uer«-"Y"  THEN 

2632  Var- Ex_inter 

2633  GOSUB  Uar_chanqe 

2634  Ex_lnter-Uar 

2635  END  IF 

2636  END  IF 

2637  RETURN 

2638  Ex_plt_cnv:  I 

2639  IF  Extensometer$-"On"  THEN 
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2G40  PRINT  "Chanqe  nlnlnun  strain  olotted?" 

Z541  605UB  Yaa.no 

2C42  IT  nnjueril-"Y"  MIEN 

2643  Var-Explot© 

2644  GOSUB  Uar_change 
2G45  Explot0-v'ar 
2G4G  END  IF 

2G47  PRINT  "Chanqa  maximuit  strain  plotted?' 

2G48  GOSUB  Yeo_.no 

2649  IF  Answer$-"Y"  THEN 

2650  Var-Explotnax 
265  I  GOSUB  Uar_chanqe 
2G52  Explotmax-Var 
2653  END  IF 

2G54  Exp_cona( T_start-T_end )/(  Explot0-Explotnax  ) 

2G55  Exp_int=T_start-Exolot0»Exp_con 

2G5G  END  IF 

2657  RETURN 

2658  Ten_com:  ! 

2659  KEY  LABELS  OFF 

2SG0  PRINT  "TENSION,  TENSION/COMPRESSION  OR  COMPRESSION  TEST?" 

2661  BEEP  2000,.! 

2GG2  OFF  KEY 

2G63  ON  KEY  I  LABEL  "TENSION"  GOTO  Tan  only 

2664  ON  KEY  2  LABEL  "TENSION"  GOTO  Ten_onlY 

26G5  ON  KEY  3  LABEL  ""  GOTO  Ten_tdle 

2666  ON  KEY  4  LABEL  "TENSION/COMPRESS"  GOTO  Ten_and_com 

2667  ON  KEY  5  LABEL  "TENSION/COMPRESS"  GOTO  Ten_and_com 
26G8  ON  KEY  6  LABEL  ""  GOTO  Ten_ldle 

26G9  ON  KEY  7  LABEL  "COMPRESS"  GOTO  Con_only 

2670  ON  KEY  8  LABEL  "COMPRESS"  GOTO  Com_only 

267 1  KEY  LABELS  ON 

2672  Ten_idle:GOTO  Ten_idle 

2673  Ten_only:  Te_co»l 

2674  GOTO  Sat_UD_wenu 

2675  Ten_and_con:  Te_co*2 

2676  GOTO  Set_uo_menu 
2G77  Copi_only:Te_co-3 

2678  GOTO  Set_uo_nenu 

2679  Uar_chanqe: ! 

2680  INPUT  "Type  in  desired  value"  ,\)ar 

2681  PRINTER  IS  1 

2GB2  PRINT  Van "Is  this  OK?" 

2683  GOSUB  Ye3_.no 

2G84  IF  AnsuerS-'N"  THEN  Uar_chanqe 

2G85  RETURN 

268G  OFF  KEY 

2G87  KEY  LABELS  ON 

2G88  ON  KEY  I  LABEL  "ADD  100"  GOTO  Hun_more ! S$$$$$SS$S$S$$S$$S$  CHANGE  LATER 

2G89  ON  KEY  2  LABEL  "ADD  10"  GOTO  Ten_more 

2690  ON  KEY  3  LABEL  "ADO  I"  GOTO  One  more 
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2G9I 
2692 
rm^ 
2604 
2G0G 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
271  1 
2712 
2713 
2714 
2715 
27IG 
2717 
2718 
2719 
2720 
2721 

2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2740 
2742 
2743 
2744 
2745 
274G 
2747 
2748 
2749 
2750 


ON  KEY  4  LABEL  "OK"  GOTO  Var_return 

ON  KEY  5  LABEL  "SUBTRACT  I"  GOTO  One_leaa 

nn  i<rv  r,  i  nnn    -mil  TtlMvnv   .1"  finrn  Hull   pi    I 

ON  KEY  7  LAOEL  "MULTIPLYDY  10"  GOIO  Mull  JO 

ON  KEY  0  LADCL  "SET  TO    0"  GOTO  Uar.rnro 

PRINTER  IS  I 

PRINT    "Current    value    la    "iVer 
Uar-J  die:  GOTO   Uarjdle 
v"ar_return:  ! 

RETURN 
Var_zaro:  I 

Uar- 0 

GOTO  Uar  change 
Hun_more : 

Uar-Uarfi00 

GOTO  Uar_changa 
Ten_more:  ! 

Var-Uar+IO 

GOTO  Uar_chanqe 
One_more :  ! 

Uar-UarH 

GOTO  Uar_change 
Mult_pt  J  :  ! 

Uar- Uar-». 10 

GOTO  Uar_chanqe 
Mult  JO:  ! 

Uar-Var»l0 

GOTO  yar_change 
One_leas  :  I 

Uar-Var-1 

GOTO  Var_chanqe 

GOTO  Set_uo_menu 

Set_uo_ok:  I  »•» .#.##•» SET_UP_OK 

PRINT  "  " 

PRINT  "00  YOU  UISH  TO:" 
PRINT  "  " 

RUN  A  TEST 
<YES> 


OR 


PRINT  " 
PRINT  " 
GOSUB  Yea_no 

IF  Anawer$-"Y"  THEN  GOTO  Init_daq 
IF  AnswerS-'N"  THEN  GOSUB  Plot_data 
Init_daq:  ! 
CLEAR  SCREEN 

PRINT  '  ' 
PRINT  "UHAT  IS  TIME  FRAME  FOR  DATA  COLLECTION 

PRINT  "  ' 
OFF  KEY 

ON  KEY  I  LABEL  "    15 
ON  KEY  2  LABEL  "   HALF    HOUR 
ON  KEY  3  LABEL  "   ONE     HOUR 
ON  KEY  4  LABEL  "   TWO     HOURS 


""OUCE  OATA 
<NO>" 


7" 


(DURATION  OF  EXPERIMENT >?' 


MINUTES"  GOTO  Tea l_durat Ion 

GOTO  Teat_duratlon 

GOTO  Teat_duratlon 

GOTO  Teat  duration 
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2751  ON  KEY  5  LABEL  "   FOUR    HOURS  "  GOTO  Taat_durat Ion 

2752  ON  KEY  G  LAGEL  "  EIGHT     HOURS  "  GOTO  Too I _dura t Ion 

2753  ON  KEY  7  LABEL  "   HALF  DAY   "  GOTO  Test_durat ion 

2754  ON  KEY  8  LABEL  "   FULL  DAY   "  GOTO  Test_durat ion 

2755  KEY  LABELS  ON 

275G  Runn_idle:GOTO  Runn_idle 

2757  Test_duration:  I  FEED  THIS  LATER  TO  SET  UP  NUMBER, 

2758  KEY  LABELS  OFF  I  AND  FREQUENCY  OF  DATA  POINTS 
2760  GOSUB  Plot_set_uo!            AND  FREQUENCY  OF  DATA  COLLECTION 
27G1  OUTPUT  709; "CLR" 

27G2  OUTPUT  709; "USE  000" 

27G3  PRINTER  IS  I 

27G4  Re_test:  ! 

2785  Aca.data:  |. •».••• •  ftCQ_OATA  ••• 

2788  IF  Uhich_pltr$-"CRT"  THEN 

27G7  PennS-"Data" 

27G8  GOSUB  Pen_aelect 

27G9  END  IF 

2770  FOR  Q-1  TO  4 

2771  ON  KEY  Q  LABEL  "TEST    COMPLETE"  GOTO  Test_done 

2772  ON  KEY  Q+4  LABEL  "RE-STARTTEST"  GOTO  Re_teat 

2773  NEXT  Q 

2774  KEY  LABELS  ON 

2775  T_total=T_end-T_start 

2778  T_convert-l  lassunes  x-axis  Is  in  seconds 

2777  IF  X_axi3$-"Time%  minutes"  THEN  T_convert-l /60 

2778  IF  X_axisS-"Elongation ,  mn"  THEN  T_convert-Str_rate/G0 

2779  IF  X_axisS-"Elonqation,  X"  THEN  T_convert-< Str_rate/Gauqe ) »( I 00/GO  ) 
2700  IF  X_axis$-"Strain"  THEN  T_convert-< Str_rate/S0 )/Gauqe 

2781  IF  X_axis$-"Enqineerinq  Strain"  THEN  T_convert«(  Str_rate/60 )/Gauqe 

2782  IF  X_axis$-"True  Strain"  THEN  T_convert-(  Str_rate/G0 )/Gauqe 
2703  L_convert-t  'assumes  OCU  is  outout 

2784  IF  Y_axisS»"Millivolts  DC"  THEN  L_convert- 1 000 

2785  IF  Y_axis$-"Load,  kN"  THEN  L_convert-Fs_load_cel 1/10 

2788  IF  Y_axisS-"Stress  ,  MPa"  THEN  L_convert-(Fs_load_cell » 100 >/Samole_area 

2787  IF  Y_axiaS-"Engr  Straas   MPa    "  THEN  L_convart-<  Fa_ioad_col  1  •  I  00  >/Samola_ 
area 

2788  IF  Y_axisS-"True  Stress   MPa    "  THEN  L_convert-< Fs_load_cel 1 » I  00 >/Samole_ 
area 

2709  KEY  LABELS  OFF 

2790  INPUT  "Hit  <RETURN>  when  ready  to  proceed. "  ,Which$ 

2791  KEY  LABELS  ON 

2792  T_0"TIMEDATE    'Time  is  measured  in  seconds  then  converted  to  desired  unit 

2793  LORG  5 

2794  FOR  1-0  TO  5000 

2795  REPEAT 

279G  T_i-<TIMEOATE-T_0)»T_convert 

2797  UNTIL  T_i>-< T_total/5000 >•< I ) 

2798  Strain(I)-T_i 

2799  OUTPUT  709i "CONFMEAS  DCU,214" 

2800  ENTER  709iStresa< I  ) 
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2801 
2802 
2803 
2804 
2005 
2000 

rno? 

2808 
2809 
2810 
281  t 
2812 
2813 
2815 
2816 
2817 
2810 
2813 
2820 
2821 

2823 
2824 
2825 
2826 
2827 
2828 
2023 
2830 
2831 
2832 
2  8  j  J 
2834 
2B3S 
283£ 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 


Stress* I  )»Stress< I  )»L_convert 
PLOT  Strain? I  )  , Stress!  I  ) 
IF  Extensometer$-"On"  THEN 

OUTPUT  709i"CONFMEAS  DCU.2IS" 
FNTFR  709iE/t«n9(I  ) 

L/.tonn<  I  >-i:xlnnn<  I  >■("•.  _cnrw«r  t  ir*.x_litt«r  IMNVrn  PI    TO    r,mt\1U    VAI  lirpi 
r«plot~FxUn*m»Fxti   enn+Exn    Int  IC0NVERT5   STRAIN  TO  Pl.OTAflLE  VALUES 
MOVE   Explot  .Stress* I ) 
LABEL   USING    •«";"•" 
END    IF 
NEXT    I 
Test_done:     ! 
Njpoints-I 
OFF   KEY 
FOR   0-1    TO    4 

ON  KEY  Q  LABEL  " 
ON  KEY  Q+4  LABEL  "Main 
NEXT  Q 
T_d_i die: GOTO  T_d_idle 
Pen  select :  • 


"  GOTO  Dumper 
Menu"  GOTO  Main  menu 


ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 


"Pen  1 
"Pen  2 


GOTO  PI 
GOTO  P2 


"Pen  3"  GOTO  P3 

"Pen  4"  GOTO  P4 

"Pen  5"  GOTO  P5 

"Pen  6"  GOTO  P6 


LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
LABEL 

LABEL  "Orauilnq  "&Penn$  GOTO  Pen_select_idle 
ON  KEY  8  LABEL  "Drawing  "IPennS  GOTO  Pan_select _ldle 
KEY  LABELS  ON 
BEEP  2000,. 1 
Pen_select_i die: GOTO  Pen_select_idle 
PI  :PEN  1 
GOTO  Penj-eturn 
::PEN  2 

jOTO  Pen_return 
3:PEN  3 

GOTO  Pen_return 
P4:PEN  4 

GOTO  Pen_return 
PS:PEN  5 

60T0  Pen_return 
P6:PEN  6 
Pen_return: I 
KEY  LABELS  OFF 
RETURN 

Dumger:  !•••• #.»... «.  DUMPER  •••< 

KEY  LABELS  OFF 
OUMP  DEVICE  IS  701 
OUTPUT  KBDi"N"i 
GOTO  Main  menu 
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2879  File_err:  l»» » • FILE_ERR  »»•»* 

2880  PRINTER  IS  I 
208!  PRINT  USING  "8  ,«" 
21102  DCCP  2000  ,.3 

2003  IF  ERRN-70  OR  ERRN-OS  THEN 

20G4  PRINT  "UARNING  you   ara  Initializing  this  disc.  All  data  will  be  erased. 

■ 

2885  INPUT  "Hit  <RETURN>  to  continue"  ,Uhich$ 

288G  INITIALIZE  " :CS80  ,700  , 1 " 

2887  END  IF 

2888  PRINT  "Error  in  file  nana  select  ion"  ,ERRN  ,ERRM$ 

2889  GOTO  Data_save 

2890  Plot_set_uo:  I* »•••» •  •••■  PLOT_SET_UP  »• 

2891  PRINTER  IS  I 

2892  OFF  KEY 

2893  PRINT  "Do  you  want  to  use  the  Plotter?" 

2894  GOSUB  Yes_no 

2895  OUTPUT  KBDi"K"  ; 

289G  IF  Answer$-"Y"  THEN  INPUT  "Put  Daper  in  the  olotter  then  hit  <RETURN>"  ,Uhi 
ch$ 

2897  GINIT 

2898  GRAPHICS  ON 

2899  IF  Answer$-"Y"  THEN 

2900  PLOTTER  IS  705/HPGL" 

2901  VIEWPORT  0,125,0,100 

2902  Uhichjpltr*-"Plotter" 

2903  PennS-"Axes" 

2904  GOSUB  Pen_select 

2905  ELSE 

290G  PLOTTER  IS  CRT  ," INTERNAL" 

2907  Uhich_pltr$-"CRT" 

2908  VIEWPORT  0,1 20, 2B  ,100 

2909  EN0  IF 

2910  Load_ran»Load_max-Load_min 

2911  T_ran-T_end-T_start 

2912  UINOOW   T_start-.  I  »(T_ran)  ,T_end  .Loadjnln  - .  I  »Load_ran  ,Load_maxK  l3»Load_ran 

2913  CLIP  T_start  ,T_end  ,Load_min,Load_ma:< 

2914  GRID  T_ran/1  0,Load_ran/ 10, T_start  , Loadjnln  ,  I  ,1 

2915  CLIP   OFF 
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29IG  CSIZE   3 

2917  LORG    4 

2918  MOVE    <T_starHT_end)/2  ,Load_max  t- .  08»Load_ran 

2919  LABEL    USING    "K " i Sample_nr$&"       "&VAL*<  Tos t _t onp )& "    C" 

2920  LORG   G 

2921  FOR  I-T_start  TO  T_end  STEP  ( T_start-T_end )/( -5 ) 

2922  MOVE  I  ,Load_nin-.025»Load_ran 

2923  LABEL  USING  "K";I 

2924  NEXT  I 

2925  MOVE  .S»<T_start+T_end>  ,Load_nln-.07»Load_ran 
292G  LABEL  USING  "K" ;X_axis$ 

2927  LORG  8 

2928  FOR    I-Loadjnln   TO   Load_nflv    STEP   Load_ran/10 

2929  MOVE    T_start-< .01 "<T_  T_start)),I 

2930  LABEL  USING  "K" il 

2931  NEXT  I 

2932  LORG  4 

2933  MOVE  T_start-(  .07»< T_end-T_start ) ) ,Load_ran/2+Load_nin 

2934  DEG 

2935  LDIR  90 

293S  LABEL  USING  "K"tY_axls$ 

2937  LOIR  0 

2938  LORG  4 

2939  IF  Extenaoneter*-MOn"  THEN 

2940  E:<D_ran-EAD  lotmax  -Exo  lotO 

294  1  CLIP  T_atart  f  .  1  »T_ran  ,T_end  ,Load_wax  ,Load_na<^  .  I  »Load_ran 

2942  AXES  T_ran/ I  0  ,Load_ran/20 ,T_s tart  ,Load_nax 

2943  CLIP  OFF 

2944  FOR  I-T_start  TO  T_end  STEP  T_ran/I0 

2945  MOVE  I ,Load_nax+Load_ran»  .03 

294G  LABEL   USING    "l<"  ;  (  I-Exo_int  >/Exo_con 

2947  NEXT  I 

2948  END  IF 

2949  RETURN 

2950  Uhtchjnsu:  I UIITCH  _MSU  • 

2951  OFF  KEY 

2952  MASS  STORAGE  IS  " :CS80  ,700  ,0" !  HARD  DRIVE  FOR  2732A25753 

2953  !  OR  FLOPPY  FOR  2702A2I048 

2954  CLEAR  SCREEN 

2955  PRINT  "Do  you  want  to  store/recall  data  to/from  the  HARO  DRIVE  or  3-1/2  FL 
OPPY7" 

295G  PRINT  "  " 

2957  PRINT  "•••<YES>    FOR  HARO  ORIVE  <NO>  FOR  FLOPPY»»»»»" 

2958  GOSUB  Yes_.no 

2959  IF  Ansuer$-"Y"  THEN  GOTO  Hard_wsu 
29G0  CLEAR  SCREEN 

29G1  PRINT  "Uhteh  IIP  system  are  you  using?        (CODES  ARE  MACHINE  DEPENDENT )" 

29G2  PRINT  "  " 

29G3  PRINT  "»»»<YES>  IF  MSU  «1  IN  THE  INSTRON  ROOM,       <N0>  FOR  MSU  *2»»»"" 

29G4  PRINT  "           (SERIAL  t  2732A25753 >               (SERIAL  f  2702A2I048) 
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2879  File_err:  I •»»•»•»•*•»•••»*»•••••#»»••  FILE_ERR  »»» ...».♦.... 

2880  PRINTER  IS  I 

2881  PRINT  USING  "3,*" 

2882  BEEP  2000,. 3 

2883  IF  ERRN-78  OR  ERRN-9S  THEN 

2084  PRINT  "WARNING  you   are  lnltlalizlnq  this  disc.  All  data  will  be  erased. 

2005  INPUT  "lilt  (RETURN)  to  continue" ,Uhlch« 

2000  INITIALIZE  " ICSO0  ,70M  ,  I " 

2007  END  IE 

2008  PRINT  "Error  In  file-  nana  select  lon"  ,ERRN  .ERRM* 

2889  GOTO  Oata_save 

2890  Plot_set_uo:  !»»•»» ».»..»....».#  PLOT_SET_UP  »»*•»• •» 

2891  PRINTER  IS  1 

2892  OFF  KEY 

2893  PRINT  "Oo  you  want  to  use  the  Plotter?" 

2894  GOSUB  Yes_.no 

2895  OUTPUT  KBD;  "l<"  i 

289G  IF  Answer$-"Y"  THEN  INPUT  "Put  oaoer  In  the  plotter  then  hit  (RETURN) " ,Whl 
ch$ 

2897  GINIT 

2898  GRAPHICS  ON 

2899  IF  AnswerS-"Y"  THEN 

2900  PLOTTER  IS  705,'HPGL" 

2901  VIEWPORT  0,125,0,100 

2902  Uhlch_pltrS-"Plotter" 

2903  PennS-"Axes" 

2904  GOSUB  Pen_select 

2905  ELSE 

290G  PLOTTER  IS  CRT  ," INTERNAL" 

2907  Uhichj?ltr$=-"CRT" 

2908  VIEWPORT  0  ,120  ,26  ,100 

2909  END  IF 

2910  Load_ran=Load_max-Load_mln 

2911  T_ran-T_end-T_start 

2912  WINDOW  T_start-.  I  »(  T_ran  )  ,T_end  ,Load_min- .  1  »Load_ran  ,Load_ma:<  +  .  13«Load_ran 
2313  CLIP  T_sTart ,T_and ,Load_wln ,Load_nax 

2914  GRID  T_ran/10  ,Load_ran/T0,T_start  ,Load_Mln,1  J 

2915  CLIP  OFF 
291G  CSIZE  3 

2917  LORG  4 

2918  MOVE  (T_start+T_end)/2  ,Load_max+.08»Load_ran 

2919  LABEL   USING    "K"  sSainole_nr$&"       "|_VAL$(  Test_temp  )&"    C" 

2920  LORG   G 

2921  FOR  I-T_start  TO  T_end  STEP  ( T_start-T_end )/( -5 ) 

2922  MOVE  I  ,Load_min-.02S»Load_ran 

2923  LABEL  USING  "K";I 
2324  NEXT  I 

2925  MOVE  .S»< T_start+T_end >  ,Load_min-.07»Load_ran 

292E  LABEL  USING  "K";X_axis$ 

2927  LORG  8 
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2928  FOR  I-Load_mln  TO  Load_max  STEP  Load_ran/I0 

2929  MOVE  T_start-< .01 •(  T_end-T_start ) ) ,1 

2930  LABEL  USING  "K";I 

2931  NEXT  I 

2932  LORG  4 

2933  MOVE  T_start-(  .07»( T_end-T_start ) ) ,Load_ran/2+Load_min 

2934  DEG 

2935  LOIR  90 

293S  LABEL  USING  "K" ; Y_axis$ 

2937  LOIR   0 

2938  LORG   4 

2939  IT    CAtonsonntor1i-"On"    TlirN 

2940  Cap _rnn~Exp lotmax-Exn  lot0 

2941  CLIP    T_start+. I *T_ran ,T_end ,Load_max ,Load_max  + . t »Load_ran 

2942  AXES  T_ran/ t 0 ,Load_ran/20 ,T_start  ,Load_max 

2943  CLIP  OFF 

2944  FOR  I-T_slart  TO  T_end  STEP  T_ran/I0 

2945  MOUE  I ,Load_nax+Load_ran«  .03 

294G  LABEL  USING  "K" ;  (  I-Exp_int  )/E.so_con 

2947  NEXT  I 

2943  ENO  IF 

2949  RETURN 

2950  Uhlchjnau:     l« •• UHICH_M5U    •»•• 

295  I  OFF    KEY 

2952  MASS  STORAGE  IS  "  :CS80  ,700  ,0" I  HARD  DRIUE  FOR  2732A25753 

2953  !  OR  FLOPPY  FOR  2702A2 1 048 

2954  CLEAR  SCREEN 

2955  PRINT  "Oo  you  want  to  store/recall  data  to/from  the  HARO  DRIUE  or  3-1/2  FL 
0ppY7- 

295G  PRINT  "  " 

2957  PRINT  "»»»<YES>    FOR  HARO  DRIVE  <N0>  FOR  FLOPPY»»»»»" 

2958  GOSUB  Yes_.no 

2959  IF  Answer$-"Y"  THEM  GOTO  Hard_msu 

2960  CLEAR  SCREEN 

29GI  PRINT  "Which  HP  system  are  you  usinq?        (COOCG  ARE -MACHINE  DEPENDENT)" 

2952  PRINT  "  " 

2953  PRINT  "•••<YES>  IF  MSU  t\    IN  THE  INSTRON  ROOM,  :N0>  FOR  MSU  »2»»»»»" 
29G4  PRINT  "          < SERIAL  t  2732A25753  )               (SERIAL  *  2702A21048) 

29G5  GOSUB  Yes_.no 

29GG  IF  AnsuerS-"Y"  THEN  MASS  STORAGE  IS  " :CS80  ,700  ,0" 

2967  IF  Answer$-"N"  THEN  MASS  STORAGE  IS  " :CS80  ,700  , 1 " 

29G8  KEY  LABELS  OFF 

29G9  RETURN 

Z970  Hard_nau:  I 

2971  CLEAR  SCREEN 

2972  PRINT  "Which  HP  system  are  you  uslnq?  (COOES  ARE  MACHINE  DEPENDENT)" 

2973  PRINT  "  * 

2974  PRINT  "»»»<YES>  IF  MSU  *1  IN  THE  INSTRON  ROOM,  <N0)  FOR  MSU  «2 " 

2975  GOSUB  Yes_.no 

297G  IF  Ansuer$-"Y"  THEN  MASS  STORAGE  IS  " :CS80  ,700  , 1" 
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2977 
nvn 
217!] 
2uu« 

rsni 

2982 

2983 

2984 

2985 

2966 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

299G 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

301  1 

3012 

3013 

3014 

3015 

301G 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

302G 

3027 


IF  Answer$-"N"  THEN  MASS  STORAGE  15  "  :Cr,n0  ,700  .PI" 
KEY  LAtlCLS  01  I" 
PFPIHN 
Yoo_noi  I 

orr  KTY 

KEY  LABELS  OFF 

FOR  Q-l  TO  4 

ON  KEY  Q  LABEL  "YES"  GOTO  Yeas 
ON  KEY  Q+4  LABEL  "NO"  GOTO  Noo 

NEXT  0 

KEY  LABELS  ON 
Yes_no_idle:GOTO  Yes_no_idle 
Yess:AnsuerS""Y" 

RETURN 
Noo : Answer$-"N" 

RETURN 
Analyze_data:  ! 

PRINTER  IS  I 

PRINT  "Oata  analysis  section  not  written  yet" 

BEEP 

GOTO  Mainjnenu 
Data_red_nenu :    ! 
!  THIS  SECTION  IS  FOR  MAKING  A  "CORRECTEO"  TRUE/ENGR  STRESS- 


I  STRAIN  CURVES 
OFF  KEY 

ON  KEY 


OATA  REDUCTION 


ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 


LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
LABEL 


INPUT  TYPE  "  GOTO  Input _tyoe! 

SLOPE  OKAY?  "  GOTO  Slooe_ok I 

PLOT  ENGR  "  GOTO  Corr_enqr-i 

PLOT  TRUE  "  GOTO  Corr_true! 

FILE  OATA  "  GOTO  Oata_save2! 

MORE  CURVES?"  GOTO  More_plotsl 

MAIN  MENU  "  GOTO  Main_rnenu! 

MAIN  MENU  "  GOTO  Main  menu! 


ON  KEY  8  LABEL 

KEY  LABELS  ON 
Data _red_tdle:GOTO  Data_red_ldl a 
Slooe_ok:  I  »••• • » SLOPE _0K  » 

GOSUB  Yes_no 

IF  Answers-"  Y"  THEN  GOTO  Oata_red_menu ! CHANGE  TO  CORR.ENGR?'''? 
IF  Answer$-"N"  THEN  GOSUB  Plot_data 
Inout_tYPe: I ••#•#••*•»•• *•••  INPUTJTYPE  

PRINTER  IS  1 

PRINT  "Select  method  of  designating  the  points  to  calculate  the  slope' 
ON  KEY  I  LABEL  "Mouse"  GOTO  Mousejpts     I 
ON  KEY  2  LABEL  "Mouse"  GOTO  Mousejpts I 
ON  KEY  3  LABEL  "Cursor  Keys"  GOTO  Cursorjptsl 
ON  KEY  4  LABEL  "Cursor   Keys"  GOTO  Cursor_ptsl 
ON  KEY  5  LABEL  "X-Y     inputs"  GOTO  Xy_ptsl 
ON  KEY  G  LABEL  "X-Y     inouts"  GOTO  Xyjpts! 
ON  KEY  7  LABEL  "OTHER"  SOTO  Cursor_pts! 
ON  KEY  8  LABEL  "OTHER"  GOTO  Cursor_pts! 
Oesig_ldle:GOTO  Desig_idle 
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specifies  the  input  device 
initializes  location  of  cursor 


location  of  cursor  when  <RETURN>  oressed 
places  "•"  on  location  &  beeos  to  let  you 


3028  Mouse_pts:l  Uses  Mouse  to  deslqnate  points  to  calculate  slooe 

3029  I  Fill  in  lines  to  use  Mouse  later 
30.70  Com  Snlva  nlntin 

3031  Cursor_nts:  I  Uses  Cursor  to  deslanate  points  to  cnlctil/itn  ilone 

3032  KEY  LAUELS  OFF 

3033  TRACK  3  IS  ONI    initializes  cursor  routine 

3034  GRAPHICS  INPUT  IS  KBD, "ARROW  KEYS"! 

3035  SET  LOCATOR  Scale_c ,(  Hi_y+Low_y )/2 ! 
303B  FOR  Q-1  TO  4 

3037  ON  KEY  Q  LABEL  "Point  1  Baseline"  GOTO  Locator_spin 

3038  ON  KEY  Q+4  LABEL  "<RETURN>uhen  loc"  GOTO  Locator_spln 

3039  NEXT  0 

3040  KEY  LABELS  ON 
304)  Locator_soin*  I 
304:  qG  5 
304Z  >ITIZE  Tl  ,L1 
304-1  ;£  Tl  ,LI  ! 
3045  aEL  USING  "K";"»" 
304G  dEEP  2000,. 1 

3047  FOR  0-1  TO  4 

3048  ON  KEY  Q  LABEL  "Point  2  Baseline"  GOTO  Locator_soin2 

3049  ON  KEY  Q+4  LABEL  " <RETURN>when  loc"  GOTO  Locator_soin2 

3050  NEXT  Q 

3051  KEY  LABELS  ON 

3052  Locator_soln2 :  ! 

3053  LORG  5 

3054  DIGITIZE  T2  ,L2 ! 

3055  MOVE  T2  ,L2 I 
305G  LABEL  USING  "K"  ; 

3057  BEEP  2000,. 2 

3058  BEEP  2000,. I 

3059  FOR  0-1  TO  4 
30G0  ON  KEY  0  LABEL 
30GI  ON  KEY  Q+4  LABEL  '<P 
30G2  NEXT  Q 
30G3  KEY  LABELS  ON 
30G4  Locator_spln3:  ! 
30G5  LORG  5 
30GG  DIGITIZE  T9,L9! 
30G7  MOUE  T9,L9 

30G8  LABEL  USING  "K"i"t" 

30E9  BEEP  2000,. 2 

3070  BEEP  2000,. 1 

3071  GOTO  Slope_solve 

3072  Xyjpts:l  Uses  TIME-LOAD  data  to  designate  points  to  calculate  slooe 

3073  INPUT  "WHAT  IS  COORD  FOR  FIRST  POINT  ( XI  ,YI  )?"  ,T1  ,LI 

3074  INPUT  "WHAT  IS  COORD  FOR  2nd  POINT  ( X2 ,Y2 )?"  ,T2  ,L2 

3075  INPUT  "WHAT  IS  LAST  GOOD  OATA  POINT  (JUST  THE  TIME  0NLY)?",T9 

3076  GOTO  Slope_solve 

3077  Slope_solve:  I  Solves  eqn  of  line  y-Mx+bi  y  —  >  LOAD  x  —  >  Tine 

3078  Slope-(L2-Ll >/<T2-T1  >!  Solves  for  slope  M 

3079  P0-L2-<Slooe»T2 )!  Solves  for  y-interceot 


location  of  cursor  when  'RETURN)  pressed 
places  "@"  on  location  i  beeDS  to  let  you 


•CUTOFF   POINT   "  GOTO  Locator_soin3- 

RN>uhen  loc"  GOTO  Locator_spin3 


THIS  IS  END  OF  GOOD  DATA 
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vs  strain  Dlot?" 

<N0>  ENGR  STRESS/STRAIN' 


3080  T0--P0/Slopel  Solves  for  X-intercept 

3081  I    Y   -   M    <X)    +8 

3082  I   P  -  SLOPE  <TIME)  +  P0 

3083  GOTO  Slope_draw 

3084  Slope_draw:l  Draws  line  y-Mx+b  on  top  of  LOAD-TIME  curve 

3085  LINE  TYPE  I 

3086  MOVE  T0,0 

3087  LORG  5 

3088  LABEL  USING  "K"iH»" 

3089  DRAW  T0,0 

3090  DRAW  (( I .5*L2-P0)/Slope)  ,1 .S»L2 

3091  LINE  TYPE  I 

3092  GOTO  Data_redjnenu 

3093  Corr_engr:l C0RR_ENGR  •*♦•*• • •♦< 

3094  PRINT  "Do  you  want  an  TRUE  or  ENGR  stress 

3095  PRINT  "•••<YES>  FOR  TRUE  STRESS/STRAIN 
309B  G0SU8  Yes_no 

3097  IF  AnswerS-"Y"  THEN  GOTO  Corrjrue 

3098  Ee-2 

3099  GOTO  Flaq_enqri 

3100  BEEP 

3101  Corr_true: !  *»»»»*•*»*»»*»»»♦«••••••  C0RR_TRUE  »»♦»•*»»•• ♦*•♦• 

3102  Xx-3!  THIS  MEANS  TRUE  STRESS/STRAIN  AXES  LABELS  TO  PLOT 

3103  Ee-3 

3104  Flaq_enqr:  ! 

3105  IF  Ee-2  THEN  Xx-2 ! 
3I0B  Xhead_spd=Str_rate 

3107  BEEP 

3108  PRINT  "  " 

3109  PRINT  " 

3110  Tel-0 

3111  Delta_time=0 

3112  Disol»0 

3113  Strain_max»0 

3114  Stress_max»0 

3115  Tt0-INT(T0) 
31  IS  FOR  I-Tt0  TO  5000! 

3117  Tp-Strain(I) 

3118  Pp-Stress(I) 

3119  IF  Tp>T9  THEN  GOTO  Flaq_onal 

3120  Tel-<Pp-P0)/Slope 

3121  Delta_time«Tp-Tel 

3122  Displ-Oelta_tine»Xhead_spd 

3123  Stress_enqr(  I  )-<  1000»Pp  )/Satnple_areal 

3124  Strain_enqr( I )-0ispl/6auqe 

3125  IF  Strain_engr( I )>Strain_max  THEN  Straln_nax-Strain_enqr(  I ) 

3126  IF  Stress_engr< I )>Stres3_nax  THEN  Stress_nax-Stress_enqr(  I ) 

3127  Stressd )-Stre33_enqr< I  )•( l+Strain_enqr(I ))!  THIS  IS  REALLY 

3128  Strain* I >-L0G< 1+Strain_enqr< I  ) ) I  TRUE  STRESS  &  STRAIN 

3129  IF  Strain(I)<0  THEN  Straln(I)-0 


THIS  MEANS  ENGR  STRESS/STRAIN  AXES  LABELS  TO  PLOT 


CALCULATIONS  IN  PROGRESS  -  PLEASE  WAIT  FOR  BEEP'i" 


PRIOR  TO  T0  WILL  BE  ZEROS 


ENO  OF  GOOD  DATA 


KILO  TO  CHANGE  KN  TO  MPa 
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3131  t IF  Strain* I >>Strain_max  THEN  Strain_max-Strain< I  ) 

3132  !IF  Stress< I  )>Stress_nax  THEN  Stres3_max-Stress< I  ) 

3133  Zz-I 

3134  Zzz-5000-Zz 

3135  IF  Zzz-5000  OR  Zzz-4000  OR  Zzz-3000  OR  Zzz-2000  OR  Zzz-1000  THEN 
31 3G  PRINT  Zzzl                  COUNT  DOWN  -  TELLS  HOW  LONG  UNTIL  OONE 

3137  END  IF 

3138  NEXT  I 

3l3n  7777-71                            TF1.I  5  TIIF  MAX  Urtl  UF.  TOr?  AXFS 

jMD  I  lay_onn :  I 

314  1  nFFP 

3142  IT_end-Straln_max»l .2  GIVES  STRANGE 

3143  !Load_nax-Stress_max»  I  .2  UNITS  ON  AXES 

3144  GOSUB  Plot_data 

3145  PRINT  "  DO  YOU  WISH  TO  SAVE  THIS  PLOT  EITHER  ON  OISK  OR  HARO  DRIVE?" 
314G  PRINT  "                         <YES>            <NO>" 

3147  GOTO  Yes_no 

3148  IF  Answer$-"Y"  THEN  GOSUB  Data_save2 

3149  More_plots:  ' 

3150  PRINT  "  DO  YOU  WISH  TO  ANOTHER  PLOT  SUPER IrtPOSEO  ON  THIS  PL-  ""' 

3151  PRINT  "  " 

3152  PRINT  "  <YES)             '.NO> " 

3153  GOTO  Yes_no 

3154  IF  AnswerS-"Y"  THEN 

3155  01d_axes-3'  »•  •••»»»•## «IJSE  SAME  AXES  WHEN  PLOTTING 
315G  GOSUB  Re_data 

3157  GOSUB  Plot_data_2 

3158  END  IF 

3159  PRINT  "  00  YOU  WISH  TO  A  SEPERATE  ,  NEW  PLOT?" 
3IG0  PRINT  "                  

3161  PRINT  "                       <YES>            <N0>" 

3IG2  GOTO  Yes_no 

31G3  IF  AnswerS-"Y"  THEN 

31G4     01d_axes«2'  • USE  NEW  AXES  WHEN  PLOTTING 

31G5  GOSUB  Plot_data 

3IGG  END  IF 

31G7  IF  Ansuier$-"N"  THEN  GOTO  Oata_red_menu 

31G8  Data_save2:  I ••*•••*  DATA_SAVE2 

3IG9  GOSUB  Whichjtsu 

3170  OFF  KEY 

3171  ON  KEY  1  LABEL  "STORE  DATA"  GOTO  0ata_save2_1 

3172  FOR  0-2  TO  7 

3173  ON  KEY  Q  LABEL  "  "  GOTO  0ata_save2_ldle 

3174  NEXT  Q 

3175  ON  KEY  8  LABEL  "MAIN  MENU"  GOTO  Mainjnenu 
317G  KEY  LABELS  ON 

3177  Oata_save2_ldle:GOTO  Data_save2_idle 

3178  Data_3ave2_l  :  !••• •••.«0ATA_SAVE2_I 

3179  (INPUT  "File  to  be  used?  Don't  type  suffix  B ,C ,orZ. " ,File_name$ 

3180  ON  ERROR  GOTO  File  err 
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31  n  i 

3102 
3183 
3184 
3185 
3I8G 
3187 
3188 
3189 
3190 
3131 
3132 
3193 
3194 
3195 
31  96 
3197 
3198 
3199 
3200 
3201 

3203 
3204 
3205 


I  ,50001 
1  ,50001 


7.ZT-7  f»\fl 

I         NEED  TO  MAKE  THIS  FILE  THE  ENGR  AND  TRUE  ALSO 

CREATE  BOAT  "El *,1  ,50001       FILE  FOR  ENGR  STRESS/STRAIN 

CREATE  BOAT  "E2"  ,  1  ,5000!     CHANGE  FROM  "E2"  TO  FILENAME&E2 

ASSIGN  SPathl  TO  "El" 

ASSIGN  8Path2  TO  "E2" 

OUTPUT  OPathl ;Straln_engr< t )|     IT  GETS  STUCK  HERE 

OUTPUT  9Path2iStresa_engr(  » ) 

ASSIGN  GPathl  TO  • 

ASSIGN  (9Path2  TO  • 

CREATE  DUAT  "T 

CREATE  DDAT  "T 

ASSIGN  ePathl  TO  "Tl " ! 

ASSIGN  8Path2  TO  "T2" 

OUTPUT  @Path1 ;Strain( »  ) 

OUTPUT  0Path2;Stress( •  ) 

ASSIGN  @Pathl  TO  • 

ASSIGN  0Path2  TO  ♦ 
OFF  ERROR 

GOTO    Oata_red_nenu 
END 
r,UI1    Clinnijor   <  (V  .1  (  ■  )  ,1    )  I  ■  •• 

FOR    I- I    TO   5000 
Ara( I  )-Ara(I  )»F 

NEXT    I 


file  for  Tniir  r)Tnrnr)/r;TRA[N 

THIS  WAS  AODED  IN  LATER? !? 
IT  SAUED  A  Tl  FILE!  MINI 


CHANGER 
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aitinmx  it.    i  inn:  si  ui;ss  vs.  nun;  si  rain  (  uhvi: 
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Figure  25.      True  stress  vs.  true  strain,  sample  A,  10  vol.  pet.  Alumina,  400°C 
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APPENDIX  C.     DUCTILITY  VS.  TEMPERATURE  CURVES 
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Figure  26.      Ductility  vs.  temperature,  sample  A,  10  vol.  pet.  Alumina. 
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Figure  27.      Ductility  vs.  temperature,  sample  C,  15  vol.  pet.  Alumina. 
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AL6061  10%  ALUMINA  350A/350R 

DUCTILITY  OF  SAMPLE  F 
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Figure  28.      Ductility  vs.  temperature,  sample  F,  10  vol.  pet.  Alumina. 
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AL6061  15%  ALUMINA  350A/350R 
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Figure  29.      Ductility  vs.  temperature,  sample  G,  15  vol.  pet.  Alumina. 
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AL6061  10%  ALUMINA  350A/350R 

DUCTILITY  OF  SAMPLE  F 
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Figure  30.      Ductility  vs.  temperature,  sample  F,  10  vol.  pet.  Alumina. 
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AL6061  15%  ALUMINA  350A/350R 
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Figure  31.      Ductility  vs.  temperature,  sample  G,  15  vol.  pet.  Alumina. 
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APPENDIX  D.     ULTIMATE  STRENGTH  VS.  TEMPERATURE  CURVES 
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Figure  32.      Ultimate  strength  vs.  temperature,  sample  A,  10  vol.  pet.  Alumina. 
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AL6061  15%  ALUMINA  350A/250R 
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Figure  33.      Ultimate  strength  vs.  temperature,  sample  C,  15  vol.  pet.  Alumina. 
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Figure  34.      Ultimate  strength  vs.  temperature,  sample  F,  10  vol.  pet.  Alumina. 
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Figure  35.      Ultimate  strength  vs.  temperature,  sample  G,  15  vol.  pet.  Alumina. 
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AL6061  10%  ALUMINA  350A/350R 

UTS  SAMPLE  F 


O 
O 


O 
co 


o 

CO 


o 


m 
H 
P 


o 
o 


o 

CO 


w 

H  o 

CO    CO 


o 


o 

CM 


4: 
6 


n     R.7K- 


LEGEND 
\\  STRAIN  RATE 


ITR  ANNEAL 
o    (;.7E-^ STRAIN  RATE  (I  Ilk  ANNEAL) 
a  "6.7E-3  "  "  (i/2  UK  ANNEAL) 
"+     6.7E-2  "  "  (i/2  I1R  ANNEAL) 


150   200    250    300    350    400    450 

TEMPERATURE  (C) 


500 


550 


Figure  36.      Ultimate  strength  vs.  temperature,  sample  F,  10  vol.  pet.  Alumina. 
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Figure  37.      Ultimate  strength  vs.  temperature,  sample  G,  15  vol.  pet.  Alumina. 
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